Bob, not my initial query but thanks, spot on.

Steve

"Bob Phillips" wrote:

You need to create a UDF and use that

Function IsFormula(rng As Range)
If rng.Count 1 Then
IsFormula = CvErr(xlErrRef)
Else
IsFormula = rng.HasFormula
End If
End Function

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Gerrit" <Gerrit @discussions.microsoft.com wrote in message
...
I want to set conditional format so that it show when a cell contains a
formula and when a cell contains a value...

This would be most valuable to use when user needs to input values..