Shade all Blank rows in Range

[Simon Lloyd]

Something like this:

 
Sub Macro1()
    Columns("A:A").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="="
    Rows("1:19").Select
    With Selection.Interior
        .ColorIndex = 15
    End With
    Selection.AutoFilter
    End Sub

regards,
Simon