Macro Needed

[ironsides]

Data starts line 7 col A thru DZ
Some lines are blank

Macro required to search all lines and
put color gray on all lines that contain no data

 

[tweedle]

s/b a decent start

Sub GreyFillActiveSheetWhereRowHasNoData()
'http://www.mrexcel.com/forum/showthread.php?t=580572
    Dim C As Range
    Dim RowIdx As Long
    Application.ScreenUpdating = False
    TR = 7
    BR = Cells(Rows.Count, 1).End(xlUp).Row

    For RowIdx = BR To TR Step -1
        For Each C In Range("A" & RowIdx, "DZ" & RowIdx)
            boolColorRow = True
            C.Select: Debug.Print C.Value & "|"
            If Not IsEmpty(C) Then
                boolColorRow = False
                'ClearRowColor RowIdx 'Optional No Fill of Row
                Exit For
            End If
        Next C
        If boolColorRow Then
            ColorRow RowIdx
        End If
        Cells(RowIdx, 1).Select
    Next RowIdx
    Application.ScreenUpdating = True
End Sub
Function ColorRow(RowNum As Long)
    With Rows(RowNum).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
End Function
Function ClearRowColor(RowNum As Long)
    With Rows(RowNum).Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Function

 

[ironsides]

s/b a decent start

thanks TWEEDLE