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



© Copyright andrewsexceltips.net All Rights Reserved.