Function GetColorindex(rng As Range)
GetColindex = rng.Interior.Colorindex
End Function

=If(GetColorindex(A2)=3,1,0)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Steve" wrote in message
...