Hiding and Unhiding Entire Columns based on Cell Reference

**montego** · 07-02-2010, 12:58 PM

Certainly,

I would like to hide the entire column when the third row in said column is 0. For example, clicking the "Show Relevant Data" button would hide any columns in which the third row is 0. So, if B3=0, column B hould be hidden. if C3="", column C would not be hidden and remain visible, etc. etc. until coloumn BA.

I hope this clarifies my question a little bit. Let me know if I am still not explaining it clearly.

Thank you!

**shg** · 07-02-2010, 01:14 PM

Sub CommandButton1_Click()
    Dim cell As Range
    
    For Each cell In Me.Range("B3:BA3").Cells
        If VarType(cell.Value) = vbDouble And cell.Value = 0 Then
            cell.EntireColumn.Hidden = True
        End If
    Next cell
End Sub