Hi Jim,

If inserting new columns into your speadsheet is your aim, try...


Columns("F:J").Select
Selection.Insert Shift:=xlToRight

...where "F:J" refers to the columns where you want to begin the insertion.

HTH
Vince