Sub Hide0()
Dim r As Range, x, c As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    
Set r = Range("A1:AZ9000")'' this set the range from column A to AZ'
                                          '' it should look at each row in the column and hide the "0"'''''
Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False
r.EntireRow.Hidden = True
For Each c In r
    If c <> 0 Then
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Sub Unhide()
'''' this should unhide the rows.
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True

End Sub