Hide Rows on All Sheets Based on Value

[Simple85]

Hi,
I currently have a VBA script that hides the rows on a worksheet if that row has the text "Hide" within the range A5:A100. I am trying to adapt it to automatically do this on every worksheet at once.

This is where I am at (which is not working):



Sub Hide_Zero_Rows()
Dim sht As Worksheet
For Each sht In Worksheets
For Each cell In sht.Range("A5:100")
If cell.Value = "Hide" Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next cell
Next sht
End Sub

Your help would be appreciated!
Cheers

 

[vds1]

Try the below code,

Sub Hide_Zero_Rows()
    Dim Rng As Range
    Dim Sht As Worksheet
    For Each Sht In ThisWorkbook.Sheets
        Sht.Range("A5:A100").EntireRow.Hidden = False
        For Each Rng In Sht.Range("A5:A100")
            If UCase(Rng.Value) = "HIDE" Then Rng.EntireRow.Hidden = True
        Next Rng
    Next Sht
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Hide_Zero_Rows()
   Dim sht As Worksheet, Cell As Range
   For Each sht In Worksheets
      For Each Cell In sht.Range("A5:A100")
         Cell.EntireRow.Hidden = Cell.Value = "Hide"
      Next Cell
   Next sht
End Sub

 

[Simple85]

Perfect, thanks so much for your help!

 

[Fluff]

Glad to help & thanks for the feedback