VBA interior color change

[Enzo_Matrix]

I have a CF that applies to column G based on dates.
I want to take the color that is applied for overdue orders RGB(217,217,217) and apply it to the entire row instead of just the cells in column G.

This is what I've written, but it is not working the way I expect it should.

If Range("G:G").Interior.Color = RGB(217, 217, 217) Then      
     Range("A2:F100").Interior.Color = RGB(217, 217, 217)
End If

Please help.

 

[Scott T]

This code will run on the specified sheet instead of the active sheet. Change Sheet4 to the name of your sheet

Sub cf()
Dim lr As Long
lr = Sheets("[COLOR=#FF0000]Sheet4[/COLOR]").Cells(Rows.Count, "G").End(xlUp).Row
With Sheets("[COLOR=#FF0000]Sheet4[/COLOR]")
    For Each cell In .Range("G2:G" & lr)
        myrow = cell.Row
        If cell <= Date Then
            .Range(.Cells(myrow, "A"), .Cells(myrow, "F")).Interior.Color = RGB(217, 217, 217)
        End If
    Next cell
End With
End Sub

 

[Enzo_Matrix]

Thank you for your help Scott T. Works perfectly.