Copy Excel column in VB6

[IFRs]

I'm writing a Visual Basic program that accesses existing Excell files. I need to select an entire column and then insert the entire column, shifting all columns to the right. Excell's macro recorder shows:

Worksheets(1).Columns("C:C&quot.Select
Worksheets(1).Selection.Copy
Worksheets(1).Selection.Insert Shift:=xlToRight

But, VB6 only likes the first line. This must be a simple question, I hope someone knows the answer!!

Thanks!!

 

[zarkon4]

Try this

Worksheets(1).Columns("C:C&quot.Select
Selection.Copy
Selection.Insert Shift:=xlToRight