IF w/Not Equal?

[bobkap]

I am trying to delete columns if the header of the column is NOT a header containing the word "Transaction Status" and other headers, but when I run this (below) it doesn't delete columns based on these criteria. It deletes every column.

Any help on what I'm doing wrong would be greatly appreciated.

If Cells(1, counter) <> "Transaction Status" Or Cells(1, counter) <> "Settlement Amount" Or Cells(1, counter) <> "Settlement Date/Time" Or Cells(1, counter) <> "Submit Date/Time" Or Cells(1, counter) <> "Date" Then
Columns(counter).Delete

 

[AlphaFrog]

Change all the ORs to ANDs

 

[MARK858]

If by the "containing" in "containing the word" you mean the word might not be the only text in the cell then you will also need to use another method, one way is something like...

Sub DelCols()
    Dim counter As Long
    For counter = 10 To 1 Step -1
        If InStr(Cells(1, counter), "Transaction Status") = 0 And _
          InStr(Cells(1, counter), "Settlement Amount") = 0 And _
            InStr(Cells(1, counter), "Settlement Date/Time") = 0 And _
              InStr(Cells(1, counter), "Submit Date/Time") = 0 And _
                InStr(Cells(1, counter), "Date") = 0 Then Columns(counter).Delete
    Next
End Sub

Although if this is the case you can do away with 2 of the tests as you are testing for "Date".