Sub test()
Dim Cel As Range
Set Cel = Selection(1)
If Cel.HasFormula = False Then Cel.ClearContents
End Sub

"Tim" skrev i melding
...
Hello All,

I need to look into a cell and determine if it has a value and there is no
formula, then delete the contents. Thanks