Conditional Hiding of a column

[bahllr]

I am trying to hide columns if their value (in cells BR3:CB3) = 0. If the cell = 0, I would like for the entire column to be hidden. I think I could build an if statement for each individual cell, but maybe there is a way to do a "do while" or "for every"...but I am not as familiar with constructing those.

Any ideas?

Thanks!

 

[VoG]

Try

Sub HideCols()
Dim c As Range
For Each c In Range("BR3:CB3")
    c.EntireColumn.Hidden = c.Value = 0
Next c
End Sub

 

[bahllr]

Thanks VoG,

This worked perfectly!