Cacher is the code snippet organizer for pro developers

Sub sbDelete_Columns_IF_Cell_Cntains_String_Text_Value()

  Dim lColumn As Long
  Dim iCntr As Long
  lColumn = 20

   For iCntr = lColumn To 1 Step -1
        If Cells(1, iCntr) = “Your String” Then ‘ You can change this text
            Columns(iCntr).Delete
        End If
    Next

End Sub