Try

Dim F As String
Dim S As String

F = ActiveCell.Formula
S = Application.ConvertFormula(F, xlA1, xlR1C1)
If F = S Then
Debug.Print "No cell references"
Else
Debug.Print "cell references"
End If




"mark kubicki" wrote in message
...
How can I distinguish if a cell has formula entry (ex:
=sum(A1:A25) ) vs. a simple "numeric entry (ex: 123)?

-would the most efficient way be to check if Right(AnyString,
1) = "="

thanks in advance,
-mark