Excel 2003

[Guest]

I have a spreadhseet whose columns change each month. I want to automatically
delete all the columns in the spreadsheet ecept for the first and last
columns. Is there a way to do this automatically?

 

[Guest]

Sub columnator()

Set r = ActiveSheet.UsedRange
nLastColumn = r.Columns.Count + r.Column - 1
nFirstcolumn = r.Column

For i = nLastColumn - 1 To nFirstcolumn + 1 Step -1
Columns(i).EntireColumn.Delete
Next

End Sub

 

[Guest]

Thanks so much. This works perfectly.

Sub columnator()

Set r = ActiveSheet.UsedRange
nLastColumn = r.Columns.Count + r.Column - 1
nFirstcolumn = r.Column

For i = nLastColumn - 1 To nFirstcolumn + 1 Step -1
Columns(i).EntireColumn.Delete
Next

End Sub