Delete Row when value inside cell is less than 0

To delete rows with #REF! and #DIV/0! in them you can use this statement

Columns("A").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

Originally Posted by bm4466

I was taught by a friend how to delete a row when a cell is blank with this script:

Sub DeleteBlankRows_1()
'This macro delete all rows with a blank cell in column A
On Error Resume Next 'In case there are no blank cells
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

but my problem is that I do not care for blank cells, I am only concerned with a cell who has a value that is not greater than 0. It could be blank, it could be equal to 0, or it could be something like #REF! and #DIV/0!...somebody please Help!!!!

Originally Posted by bm4466

Thanks a lot...do you know how to do it when the value is less than or equal to 0?

The only way I know is to loop through each value and test it like this

Please Login or Register  to view this content.