Kolommen verwijderen met VBA

[famjj]

IK wil in VBA kolommen die niet aan een bepaalde waarde in de eerset rij voldoen, verwijderen.
Onderstaand script verwijderd alle kolommen die in de eerste regel niet "uren" hebben staan.
Ik wil echter meerdere voorwaarden erin.
Alle kolommen moeten verwijderd worden behalve de kolommen waar in de eerste regel "uren" of "minuten" staat.
De vraag is dus hoe ik achter Value<> dus meerdere voorwaarden kan plaatsen.

Sub kolomverwijderen()
Application.ScreenUpdating = False
icol = Cells(1, Columns.Count).End(xlToLeft).Column
For x = icol To 1 Step -1
If Cells(1, x).Value <> "uren" Then Cells(1, x).EntireColumn.Delete
Next
Application.ScreenUpdating = True
End Sub

 

[MDN111]

Probeer deze voorwaarde eens:

If Cells(1, x).Value <> "uren" And Cells(1, x).Value <> "minuten" Then Cells(1, x).EntireColumn.Delete

Grtz,
MDN111

 

[Warme bakkertje]

Sub kolomverwijderen()
    Application.ScreenUpdating = False
    For x = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If InStr(1, "uren,minuten", Cells(1, x).Value) = 0 Then Cells(1, x).EntireColumn.Delete
    Next
    Application.ScreenUpdating = True
End Sub