Macro Adjustment for Unhiding Rows

[tommychowdah]

Hi!

Would someone be able to adjust this macro to unhide all rows?

Sub Hide_All_Rows()
Dim r As Range
Dim ws As Worksheet
On Error GoTo err_handler
Application.ScreenUpdating = False
    For Each ws In Worksheets
        For Each r In ws.Range("ZZ1:ZZ1000")
            If r.Value = 1 Then
                r.EntireRow.Hidden = True
            End If
        Next r
    Next ws
    
Application.ScreenUpdating = True
Exit Sub
err_handler:
MsgBox "Sheet: " & ws.Name & " caused an error"
End Sub

 

[Fluff]

Not sure if this is what you want, but it will unhide all rows, before hiding those containing 1 in col ZZ

Sub Hide_All_Rows()
Dim r As Range
Dim ws As Worksheet
On Error GoTo err_handler
Application.ScreenUpdating = False
    For Each ws In Worksheets
        ws.Cells.EntireRow.Hidden = False
        For Each r In ws.Range("ZZ1:ZZ1000")
            If r.Value = 1 Then
                r.EntireRow.Hidden = True
            End If
        Next r
    Next ws
    
Application.ScreenUpdating = True
Exit Sub
err_handler:
MsgBox "Sheet: " & ws.Name & " caused an error"
End Sub