Macro to hide sheets based on cell value on each sheet

[pontuskrusing]

I would like to get a macro that:
- Hides several sheets
- Hide sheets based on value in cell E:226 each sheet, IF cell value is 0 then hide sheet
- IF cell equals value other than 0, unhide or stay unhided
Someone that can help me with that?

Thank you in advance.

 

[bbott]

Try something like this:

Sub HideSht()
    
    Dim x As Long
    
    For x = 1 To Sheets.Count
        If Sheets(x).Range("E226") = 0 Then
            Sheets(x).Visible = False
        End If
    Next x
    
End Sub

 

[NeonRedSharpie]

    For x = 2 To ThisWorkbook.Sheets.Count        
          If Sheets(x).Cells(226, 5) = 0 Then Sheets(x).Visible = False Else Sheets(x).Visible = True
    Next x

This will hide every sheet after the first one. You can't hide them all, so I left the first one alone.

 

[pontuskrusing]

Thank you!
So, do I enter the macros separately or combined?

    For x = 2 To ThisWorkbook.Sheets.Count        
          If Sheets(x).Cells(226, 5) = 0 Then Sheets(x).Visible = False Else Sheets(x).Visible = True
    Next x

This will hide every sheet after the first one. You can't hide them all, so I left the first one alone.

 

[NeonRedSharpie]

Thank you!
So, do I enter the macros separately or combined?

I don't understand your question. bbott and I posted (essentially) the same thing. Mind just additionally unhides the sheets.