I have entered the UDF, and it works initially. But if the colour is cleared
or added later the formula doesn't update?

"Becks" wrote:

How do I enter the UDF? I've never used them before.

Thanks

"Gary''s Student" wrote:

If you are willing to use a small UDF, then you can test for color. Enter
this UDF:

Function IsRed(r As Range) As Integer
IsRed = 0
If r.Interior.ColorIndex = 3 Then
IsRed = 1
End If
End Function

Then in A1 in Sheet2 enter:

=IF(IsRed(Sheet1!A1)=1,"P","")
--
Gary's Student


"Becks" wrote:

Is it possible to use a formula to return a value of True if a cell you refer
to is coloured or not? What I want to do is: If Sheet1 A1 is shaded red,
then I want a cell in Sheet2 to return P for paid, if not stay blank?

Thanx

Becks