try this
Function ISFORMULA(cel As Range) As Boolean
ISFORMULA = cel.HasFormula
End Function
Sub testforformula()
If ISFORMULA(Range("A1")) Then
MsgBox "Has formula"
Else
MsgBox "Has no formula"
End If
End Sub

"JH" wrote:

Can someone please show me how to test whether the cell is a formula or a
constant in VBA?

say in A1, if I entered a formula, '=D4*E1', msgbox will pop up and say it
is formula, and if I entered a value '1000', it pops up and say it is a value.


Thanks!