Tim

Sub ResizeIT()

Dim range1 As Range
Dim range2 As Range
Set range1 = Worksheets("UnitTemplate").Range("CS7")
Set range2 = range1
range1.Resize(, 3).Select
Selection.EntireColumn.Insert

End Sub

Regards

Trevor


"Tim McPhillips" wrote in message
...
I have written the following code and I keep getting a run
time error 1004. Can anyone help?

Sub ResizeIT()

Dim range1 As Range
Dim range2 As Range
Set range1 = Worksheets("UnitTemplate").Range("CS7")
Set range2 = range1
Range("range1").Resize(, 3).Select
Selection.EntireColumn.Insert

End Sub

I am just trying to insert some columns based on a set
range address.

Tim McPhillips