Add a custom function like
Function Is(rng As Range) As Boolean
If rng.Count > 1 Then
IsFormula = CVErr(xlErrValue)
Else
IsFormula = rng.HasFormula
End If
End Function
and use =IsFormula(A1) in the CF

Signature
HTH
Bob Phillips
(remove xxx from email address if mailing direct)
> Is there a way to use conditional formatting to highlight any cells on a
> worksheet that contain a formula?
BetterSolutions.com - 18 May 2006 10:01 GMT
The following page shows a good example of using a custom function with
conditional formatting:
http://www.bettersolutions.com/excel/EPX299/YI418210881.htm
regards
Dave Peterson - 18 May 2006 13:03 GMT
Just a typo alert:
Function Is(rng As Range) As Boolean
should be:
Function IsFormula(rng As Range) As Boolean
> Add a custom function like
>
[quoted text clipped - 20 lines]
> > Thanks,
> > Rick S.

Signature
Dave Peterson