Jim,

You could try

Range(Cells(numberofColumns + 3, 1), Cells(numberofColumns + 17, 1)).EntireColumn.Delete


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Jim Berglund" wrote in message ...
Why don't these work? (numberof Columns is properly defined)

Range.(Column(numberofColumns + 3),Column(numberofColumns + 17)).Select
Selection.Delete Shift:=xlToLeft



Columns(numberofColumns + 3, numberofColumns + 17).Select
Selection.Delete Shift:=xlToLeft

What should I do, instead?

Thanks.

Jim Berglund