Raymond,

For cell A1:

If Not (IsNumeric(Range("A1").Value) And (Range("A1").Value 0)) Then
Range("A1").ClearContents

As a Sub:

Sub myCellCheck(inCell As Range)
If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then
inCell.ClearContents
End Sub

Called like:
Sub test()
myCellCheck Range("A1")
End Sub

HTH,
Bernie
MS Excel MVP

"RAYMOND KELLY" wrote in message
...
Is there an easy way to delete the contents of a cell when that cell is not
null and not greater than 0?
if the cell is a number greater than 0, I want it to remain the same.
If it is anything but a number greater than 0, I want to make it null.

Thanks in advance.
--
RAYMOND KELLY