You could probably do this with a formula if the number is determined by calculation.
For example, this Formula could be 0 or negative:
=A1^2 - A2 - 5
This formula would return blank if 0 or negative:
=IF(A1^2 - A2 - 5 <= 0,"", A1^2 - A2 - 5)
Not sure what you're doing, but if it can't be rendered a formula then the code would be:
--------------------------------------------------------------------
Public Sub BlankBelow1(rPassedRange As Range)
'If value of cell is below 1 or text then clears content of cell.
Dim rCurrent As Range
For Each rCurrent In rPassedRange
if Val(rCurrent.Value) <= 0 Then rCurrent.Value = "" 'Anything without positive numeric value blanked
Next
End Sub
--------------------------------------------------------------------
|