If rider1 700 Then
rider1.Font.ColorIndex = 3
Else
rider1.Font.ColorIndex = xlAutomatic
End If

But you can accomplish the same thing using conditional formatting, without
any code at all. Format -- Cells --Conditional Format
Then set up for cell value 700 and set the font color.

"NDBC" wrote:

I'm on the home straight now (I think). What I would like to do is make text
in a text box go red if a certain condition is met. ie.

If rider1.value 700 Then

rider1.font = colour red (or whatever the correct code for this is)

Thanks