VBA code hide columns based on criteria

[jakobt]

I want to create a piece of VBA code.
If a cell in row 5 - column b to columnaz includes the text EntityA or EntityQ then:
The column should not be hidden. The remaing columns in column b to columnaz should be unhidden.

Then I want to create another macro to unhide all unhidden columns.

 

[JEC]

for Example

Sub jec()
 For Each cl In Sheets(1).Range("B5:AZ5")
   cl.EntireColumn.Hidden = IsNumeric(Application.Match(cl, Array("EntityA", "EntityB"), 0))
 Next
End Sub

Sub jec2()
Sheets(1).Range("B5:AZ5").EntireColumn.Hidden = False
End Sub

 

[Fluff]

Can you please explain again?
According to this

The column should not be hidden. The remaing columns in column b to columnaz should be unhidden.

No column should be hidden.