something like this to check column A
Sub delzeros()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = 0 Then Rows(i).Delete
Next
End Sub
--
Don Guillett
SalesAid Software

"C3" wrote in message
...
HI!

How to make a macro who will find some value (etc. 0) in a specific column
(etc. column B), and erase entire row.

Thanks.