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

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.

So far I have assigned the below code to a button and using a MsgBox instead of changing the cell color as a test but is does not work.

Any ideas.

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