"T. Valko" wrote...
You can use a VBA UDF (user defined function):

Function IsFormula(cell_ref As Range)
* * IsFormula = cell_ref.HasFormula
End Function
....
This will return either TRUE or FALSE.
....

Actually it could also return #VALUE! if you try to pass it anything
that isn't a range reference. At the risk of slight overengineering,
you could use

Function isformula(c As Variant)
If Not TypeOf c Is Range Then
isformula = CVErr(xlErrRef)
Else
isformula = c.HasFormula
End If
End Function

which would return #REF! when the argument isn't a range reference. If
this udf would be used as just one term among many in longer formulas,
this could provide more meaningful diagnostics.