change cell color only if that cells font color is black and it's value is < 2000

Originally Posted by randall78

Hi'
I am trying to use vba to change the color of a cell only if that cells font color is black and it's value is less than £2000.

Sub Button1_Click()
If Range("Table1[Balance]").Font.ColorIndex = 1 And Range("Table1[Balance]").Value > 2000 Then
MsgBox ("TEST")
End If
End Sub

Less or more?