1. Place 'X' in Row 2 in whichever columns you would like to delete.
2. Paste the following macro in Module.
(Insert > Module)
Sub del_columns()
Dim ws As Worksheet
Dim lastcolm As Long
Dim i As Long
For Each ws In Worksheets
With ws
lastcolm = .Cells(2, .Cells.Columns.Count).End(xlToLeft).Column
For i = lastcolm To 1 Step -1
If UCase(.Cells(2, i)) = "X" Then
.Columns(i).Delete
End If
Next i
End With
Next ws
End Sub
3. Press Alt+F8.
4. Click Run .
