Delete Column Containing “specific text”

You will need to enable the Developer Tab in excel settings

Once enabled – Alt + F11 will open the code (Visual Basic) editor.

Add the code below:

Sub DeleteColumns()
Dim i As Integer, A As Range
For i = 100 To 1 Step -1
Set A = Cells(1, i).Find(What:="position", LookIn:=xlValues)
If Not A Is Nothing Then A.EntireColumn.Delete
Next i
End Sub

Save as a Macro-enabled workbook.

Click on the Developer Tab again

Then click Macros and doubleclick on – Sheet1.DeleteColumns

For i = 100 To 1 Step -1

This formula will look in the first 100 columns

Set A = Cells(1, i).Find(What:=”position“, LookIn:=xlValues)

and delete those that contain “position”