Just a typo alert:

Function Is(rng As Range) As Boolean
should be:
Function IsFormula(rng As Range) As Boolean

Bob Phillips wrote:

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

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Rick S." wrote in message
...
Is there a way to use conditional formatting to highlight any cells on a
worksheet that contain a formula?
--
Thanks,
Rick S.

--

Dave Peterson