'---------------------------------------------------------------------
Public Function IsCF(rng As Range) As Boolean
'---------------------------------------------------------------------
Set rng = rng(1, 1)
IsCF = rng.FormatConditions.Count 0
End Function

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Barb Reinhardt" wrote in message
...
I have a range r (which is only one cell) and I'd like to programmatically
determine if there is a conditional format condition with a formula.

To add a conditional format, I do this:

R.FormatConditions.Add Type:=xlExpression,
Formula1:="=MOD(ROW(),2=1"

What I want to know is if there is a formula?

Thanks