Add a UDF

Function IsColour(rng As Range, ci As Long)
iscolour = rng.Interior.ColorIndex=ci
End Function

and use like so

=IF(IsColour(E3,10),"G","")


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ivera" wrote in message
...
Hi,

Is this possible? I would like to create a statement saying...if the FILL
COLOR of cell D1234 = Green, then type "G".

Can this be done (with or without VBA)...and well, how if possible.

Thanks.