xxxxxxxxxx
' Deletes 3rd column
ThisWorkbook.Worksheets(1).Columns(3).EntireColumn.Delete
' Deletes 3rd column in range
Range("My_RANGE").Columns(3).EntireColumn.Delete
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
' Removes 3rd row
ThisWorkbook.Worksheets(1).Rows(3).EntireRow.Delete
' Just to clear cells without removing the row
ThisWorkbook.Worksheets("Feuil1").Rows(3).Cells.ClearContents
' Removes 3rd row of a range
Range("My_RANGE").Rows(3).EntireRow.Delete
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