I was taught by a friend how to delete a row when a cell is blank wit
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).Entire Row.Delete
On Error GoTo 0
End Sub

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

--
bm446
-----------------------------------------------------------------------
bm4466's Profile: http://www.excelforum.com/member.php...fo&userid=3394
View this thread: http://www.excelforum.com/showthread.php?threadid=56834