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

Here is what i have. The code is not giving me an error, but the MsgBox is shown even if none of the values are less then 2000 and if i change the vbBlack to Vb red then the MsgBox does not show so that bit is working its the < 2000 bit that's not.

Regards