Hello,

I received this code which hides blank rows within a range.

Sub HideRows()
    Application.ScreenUpdating = False
    Dim Rng As Range
    Set Rng = Range("Range1")
    For i = Rng.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(Rng.Rows(i)) = 0 Then
            Rng.Rows(i).EntireRow.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

It works great.

Is there a way to modify this to also include cells containing color?
ie, if a cell doesn't contains text or color, within a range, to hide those blank rows?

Thanks for any help

Jeff