If you add this Chip Pearson UDF to amodule in your workbook you can construct a
formula.
Function CellColorIndex(inRange As Range, Optional _
OfText As Boolean = False) As Integer
'
' This function returns the ColorIndex value of a the Interior
' (background) of a cell, or, if OfText is true, of the Font in the cell.
'
Application.Volatile True
If OfText = True Then
CellColorIndex = inRange.Font.ColorIndex
Else
CellColorIndex = inRange.Interior.ColorIndex
End If
End Function
In C1 enter =IF(cellcolorindex(B1,TRUE)=3,1,"")
Gord Dibben MS Excel MVP