Returns TRUE if a cell is red, FALSE if it is not
Function IsRed(rCell As Range) As Boolean
If rCell.Interior.ColorIndex = 3 Then IsRed = True
End Function
Here is a function that can be used with various colors (Use the color index
for InteriorColor)
Function IsColor(rCell As Range, btInteriorColor As
Byte) As Boolean
If rCell.Interior.ColorIndex = btInteriorColor Then IsColor = True
End Function