Shade all Blank rows in Range

[lucas]

This might not be the best way to do this...uses the used range and looks in column A to see if there is anything there....if not the row gets highlighted:

Sub test()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim lastrow As Long, r As Long
    lastrow = ActiveSheet.UsedRange.Rows.Count
    For r = lastrow To 2 Step -1
        If UCase(Cells(r, 1).Value) = "" Then
            With Rows(r).Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
        End If
    Next r
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub