Conditional Hide Worksheets If cell F2 = 0

[dtott]

I would like to hide worksheets/tabs where F2 equals zero. Is there an easy way to do this for all worksheets. Each worksheet is named differently due to the way it is extracted out of the database.

Any help greatly appreciated.

 

[Andrew Poulsom]

You can loop around the worksheets:

Sub Test()
    Dim ws As Worksheet
    For Each ws in Worksheets
        ws.Visible = Not (ws.Range("F2").Value = 0) 
    Next ws
End Sub

Note that at least one worksheet must be visible.

 

[jim may]

"to do this for all worksheets" << you can't hide ALL worksheets.. at least 1 must be visible, say Sheet1.. (let's say it is (positionally) the left most off all your worksheets; AND it also is the Sheet that contains your cell F2.

Add to your Sheet1 Code Module

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Address = "$F$2" And Target.Value = 0 Then   'refers to Cell F2 on Sheet1
For i = ActiveWorkbook.Sheets.Count To 2 Step -1
Sheets(i).Visible = False
Next i
End If
End Sub