Please help - VB Excel query

[kev777]

I am exporting an Excel Macro into a VB app but keep getting errors. I want the Macro to run in the current open xl workbook. Do I need any code before the macro? Here is some of the macro:

Sheets("Model&quot.Select
Columns("IV:IV&quot.Select
Selection.ClearContents
Columns("AD:AD&quot.Select
Selection.Insert Shift:=xlToRight
Columns("G:G&quot.Select
Selection.Copy
Columns("AD:AD&quot.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Copy&quot.Select
Application.Goto Reference:="copy"
Selection.Copy

Thanks,

Kev.

 

[ufobaby]

hi Kev,

From ur code what i understand is you want to run the macro on the sheet named "Model". However if you want it to run on sheet which is currently Open/Active try using -"ActiveSheet" Property. i.e

ActiveSheet.Select
ActiveSheet.Columns("IV:IV&quot.Select
Selection.ClearContents
ActiveSheet.Columns("AD:AD&quot.Select
Selection.Insert Shift:=xlToRight

Hope this solves ur problem

Cheers!!!
Niraj >:O>