Bernie,

Thank you.

Will this work when it is more than one cell?
I need to run the code once for all cells in the range A1..C100.

--
RAYMOND KELLY


"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
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