Sub testme02()

Dim FoundCell As Range

Do

With Worksheets("Sheet1").Range("B1").EntireColumn
Set FoundCell = .Cells.Find(What:="0", _
After:=.Cells(1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With

If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
Loop

End Sub


Copy this Code into a mudule
create a button and assign this macro to it
This code will search column b and when it finds a zero it deletes the
row,
you can fine tune it to meet your requirments, such as the column,
sheet,and criteria;)


--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=519018