Clunky Slow Code, Hides Empty Rows, Takes too long...

Hi

All you have to do is to hide the formulas returning blanks I would have thought.

Sub UnhideMacro()
Dim c As Range
ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlNumbers + xlTextValues).Select
For Each c In Selection
If c.Value <> "" Then c.EntireRow.Hidden = False
Next c
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues).Select
Selection.EntireRow.Hidden = False
End Sub

Thanks again for your response! Oddly enough, this code works but only if my formulas have the IF(ref="","",ref) convention, but unfortunately, it puts me back in the same position of iterating through many cells and the time it takes to process is about the same as my original code. I'm not sure if you were referring to hiding the formulas (as in protect sheet) or just hiding 0s... I'm also not sure why your first code didn't work but it did with the FOR EACH loop. I even tried defining the ranges.

I actually did get my array solution to check the IF<>EMPTY condition based on array index but then I run into another issue: using Union to join two non-contiguous ranges. Which is why in the following code I had to dim my array as A:C and then of course in the scope of things I am once again not speeding up the process very much. This has been a difficult one for me.

Option Explicit

Sub F2HideRows()

Application.ScreenUpdating = False

Dim i As Long
Dim p As Long
Dim varray As Variant

varray = Sheets("F2").Range("A21:D39").Value


Sheets("F2").Range("F2HideRows").Rows.EntireRow.Hidden = True


    For i = 1 To UBound(varray, 1)
        For p = 1 To UBound(varray, 2) Step 3
            If varray(i, p) <> Empty Then
            Range("A" & i + 20).EntireRow.Hidden = False
            End If
        Next p
    Next i


 On Error GoTo 0

Application.ScreenUpdating = True

End Sub