Changing text color

[Shannon]

If the syntax (.Pattern = xlSolid) highlights a cell to
the color you select. What syntax changes the text color?

 

[Tom Ogilvy]

for a range
Range("A1").Font.ColorIndex = 3

 

[Shannon]

It is in an If statement, i.e.
(If Cells(i, 9).Value < 1 And Cells(i, 9).Value <> 0 Then
With Cells(i, 9).Interior
.Pattern = xlSolid
.ColorIndex = 3
.PatternColorIndex = xlAutomatic
End With
End If)

Instead of highlighting the box in the .Pattern = xlSolid
I would like to change the text color to red.

Shannon

 

[Tom Ogilvy]

If Cells(i, 9).Value < 1 And Cells(i, 9).Value <> 0 Then
With Cells(i, 9).Font
.ColorIndex = 3
End With
End If

 

[Shannon]

Thank you.
Shannon

-----Original Message-----
If Cells(i, 9).Value < 1 And Cells(i, 9).Value <> 0 Then
With Cells(i, 9).Font
.ColorIndex = 3
End With
End If

--
Regards,
Tom Ogilvy




.