xxxxxxxxxx
Sub sbVBS_To_Delete_Specific_Multiple_Columns()
Sheets("Sheet1").Range("A:A,C:C,H:H,K:O,Q:U").EntireColumn.Delete
End Sub
xxxxxxxxxx
' Deletes 3rd column
ThisWorkbook.Worksheets(1).Columns(3).EntireColumn.Delete
' Deletes 3rd column of a range
Range("My_RANGE").Columns(3).EntireColumn.Delete
xxxxxxxxxx
' Deletes 3rd column
ThisWorkbook.Worksheets(1).Columns(3).EntireColumn.Delete
' Deletes 3rd column in range
Range("My_RANGE").Columns(3).EntireColumn.Delete