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

"Shannon" wrote in message
...
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


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

--
Regards,
Tom Ogilvy

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


.