A column

50
800
Ron
Dave
0
400

i want to delete the entire row if a cell 300

thanks in advance


--
barkiny
------------------------------------------------------------------------
barkiny's Profile: http://www.excelforum.com/member.php...o&userid=20397
View this thread: http://www.excelforum.com/showthread...hreadid=522295

Barkiny, you could use autofilter and filter using custom 300 then delete
the rows, or you could use a macro like this

Sub Deleterows()
'will delete rows where column A 300
Dim lastrow As Long, r As Long
Application.ScreenUpdating = False
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For r = lastrow To 2 Step -1
If Cells(r, "A") 300 Then
Rows(r).EntireRow.Delete
End If
Next r
Application.ScreenUpdating = True
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"barkiny" wrote in
message ...

A column

50
800
Ron
Dave
0
400

i want to delete the entire row if a cell 300

thanks in advance


--
barkiny
------------------------------------------------------------------------
barkiny's Profile:
http://www.excelforum.com/member.php...o&userid=20397
View this thread: http://www.excelforum.com/showthread...hreadid=522295