Hi,

Open VB editor, insert a module into 'ThisWorkbook' and paste the code below
in.

Call from a worksheet cell with

=IsFormula(A1)


Function IsFormula(rng As Range) As Boolean
If rng.HasFormula Then
IsFormula = True
End If
End Function

"lessburgfred" wrote:

I would like to be able to test if a cell has a formula - or not. Prefer to
return a logical.
Thanks