hi CADinDallas

Try this
Sub Makro1()

Dim colE As Double
Dim i As Double
colE = Cells(Rows.Count, "E").End(xlUp).Row
For i = 1 To colE
If Range("E" & i) = "c" Then
Range("A" & i & ":G" & i).Interior.ColorIndex = 6
End If
Next i
end sub

Regards Yngve