..find needs to be qualified by a range reference

try

Dim c As Range

With Columns("B")
Do
Set c = .Find("0", LookIn:=xlValues, LookAt:=xlPart, _
MatchCase:=False)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
End With


---
Message posted from http://www.ExcelForum.com/