Raymond,

Dim inCell As Range

For Each inCell In Range("A1:C100")
If Not (IsNumeric(inCell.Value) And (inCell.Value 0)) Then
inCell.ClearContents
Next inCell

HTH,
Bernie
MS Excel MVP

"RAYMOND KELLY" wrote in message
...
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