CAN SOMEONE PLEASE TELL ME WHY THIS CODE WILL NOT RUN. THE CODE AUTOMATICALLY HIDES AND UNHIDES ROWS SHEET BY SHEET. FOR SOME REASON IT QUIT RUNNING ALL THE SUDDEN.
Code
Sub HideBlankRows()
Rows.Hidden = False
Columns.Hidden = False
Dim r As Long
For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.WorksheetFunction.Max(Rows(r)) = 0 And _
Application.WorksheetFunction.Min(Rows(r)) = 0 Then
Rows(r).EntireRow.Hidden = True
End If
Next
End Sub