Try this Tim

Sub test()
If Range("D6").HasFormula Then
MsgBox "formula"
Else
MsgBox "not"
End If
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Tim" wrote in message ...
How would I chec if a particular cell contains a formula
or value. If teh cell contains the value, I would like
to exit the sub, but if there is a formula I would like
the procedure to run.

Thanks in Advance