does
[vba]Sheets("Sheet1").Range(Range("B2"), Range("B2").End(xlToRight)).EntireColumn.Copy
Sheets("Sheet2").Select
Columns("B:B").Select
Range("B2").Activate
Selection.Insert Shift:=xlToRight
[/vba]work?
does
[vba]Sheets("Sheet1").Range(Range("B2"), Range("B2").End(xlToRight)).EntireColumn.Copy
Sheets("Sheet2").Select
Columns("B:B").Select
Range("B2").Activate
Selection.Insert Shift:=xlToRight
[/vba]work?
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Posting Permissions
Reply With Quote