Delete Column Containing “Text”

*Need Developer Tab Enabled

Hold down Alt key and F11 to bring up VBA editor

Click insert – module

Add the code:

Sub remove_columns()
For i = ActiveSheet.Columns.Count To 1 Step -1
If InStr(1, Cells(1, i), "position") Then Columns(i).EntireColumn.Delete
Next i
End Sub

Where the code says “position” change to the text you want i.e. header text that denotes a column to delete

save as macro enabled workbook