VBA to hide Multiple Columns based on Headers

Hello Forumreaders,

Can someone help me with a code that hide every columns that does not confirm to the cell value in a row 5 for example.
I have a code that deletes all columns, but I have to hide these columns and not delete them.

With regards,
FvdF

Public Sub DeleteColumns()
    Dim Counter As Long
    
    Application.ScreenUpdating = False
    
    For Counter = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
        Select Case Cells(5, Counter).Value
            Case "1"
            Case "LBO1"
            Case "LDN1"
            Case "GHI1"
            Case "HAA1"
            Case "IJC1"
            Case "KEN1"
            Case "ZAA1"
            Case "WAT1"
            Case Else
                ActiveSheet.Columns(Counter).Delete
        End Select
    Next Counter
    
End Sub

Try this...

Sub test()
Dim Crit, Counter As Long
Crit = Array("1", "LBO1", "LDN1", "GHI1", "HAA1", "IJC1", "KEN1", "ZAA1", "WAT1")
For Counter = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
    If Not IsNumeric(Application.Match(Cells(5, Counter), Crit, 0)) Then Columns(Counter).EntireColumn.Hidden = True
Next Counter
End Sub

Pleasure...Tx for adding rep...