Sub delete_zero_rows()
Dim c As Range
With ActiveSheet.Columns("H") 'edit to suit
Do
Set c = .Find("0", LookIn:=xlValues, lookat:=xlWhole, _
MatchCase:=False)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
End With
End Sub


Gord

On Mon, 15 Dec 2008 14:54:06 -0800, RW wrote:

I was trying to do it with a visual basic sub to automate it for my helper.
Any code for this situation?
Thanks

"Gord Dibben" wrote:

Have you tried DataFilterAutofilter for 0.00 and deleting the resultant
rows?


Gord Dibben MS Excel MVP

On Fri, 12 Dec 2008 14:49:03 -0800, RW wrote:

I would like to delete all the rows in a worksheet that contain the value of
0.00, these values come from another worksheet through the formula
=CheckInfo!$AC$2. The 0.00 are all in the same column. I am using Excell 2003.