Shade all Blank rows in Range

[Simon Lloyd]

Here's another way:

 
Sub Macro1()
    Dim Rng, MyCell As Range
    Dim lRow As Long
    lRow = ActiveSheet.UsedRange.Rows.Count
    lCol = ActiveSheet.UsedRange.Columns.Count
    Set Rng = Range(Cells(1, 1), Cells(lRow, lCol))
    For Each MyCell In Rng
        If MyCell = "" Then
            MyCell.EntireRow.Interior.ColorIndex = 15
        End If
    Next MyCell
End Sub

Regards,
Simon