Returns TRUE if a cell is red, FALSE if it is not
Function IsRed(cell As Range) As Boolean
If cell.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(cell As Range, InteriorColor As
Byte) As Boolean
If cell.Interior.ColorIndex = InteriorColor Then IsColor = True
End Function