Question

Ok, i have this dataset where I need to delete startin from column for every other column. So i tried to do this with VBA since the dataset is quite large. I tried this but it will not work:

Sub Macro2()
'
' Macro2 Macro
'

'
    For clNumber = 4 To 500

    clNumber.Select                      //doesn't work
    Selection.Delete Shift:=xlToLeft
    Next

End Sub

Any ideas on how to select the column of which the number is clNumber and delete that?

Answer 1

Change clNumber to Columns(clNumber), as clNumber is just a number, but not an object.

Actually, it is better just to use

For clNumber = 4 To 500
  Columns(clNumber).Delete Shift:=xlToLeft
Next

as Select is unnecessary.