Change entire row color

[mthomas]

I know how to iterate down the rows, but how do I assign an entire row
font color. To assign red or blue, would it be something like:

if cells(i,1).Value = "Non-Interum Servicing" then
Worksheet.Range.EntireRow.Font.Color = RGB(255, 0, 0)
else
if cells(i,1).Value = "Interum Servicing" then
Worksheet.Range.EntireRow.Font.Color = RGB(0, 0, 255)
end if
end if


Thanks in advance everyone

 

[Guest]

cells(i,1).EntireRow.Font.Color = RGB(255, 0, 0)

Regards
Rowan

 

[Norman Jones]

Hi M,

Try something like:

Sub AAA()

Dim i As Long

For i = 1 To 10
With Cells(i, 1)
If .Value = "Non-Interum Servicing" Then
.EntireRow.Font.Color = RGB(255, 0, 0)
ElseIf .Value = "Interum Servicing" Then
.EntireRow.Font.Color = RGB(0, 0, 255)
End If
End With
Next i
End Sub