Easy way

Set thisSheet = Activesheet
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B3").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("CP093004").Select
Range("B3").Select
Selection.Copy
Sheets("CP031005").Select
Range("B3").Select
thisSheet.Activate

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Brad" wrote in message
...
I have the following code generated from a macro:

Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B3").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("CP093004").Select
Range("B3").Select
Selection.Copy
Sheets("CP031005").Select
Range("B3").Select
...

and, I want to run the macro from a newly imported sheet, so, what can I
put
in place of

Sheets("CP031005").Select

so that it selects the current sheet from which the macro was called?

My thanks in advance for any help. Brad