Deleting a row with a cell containing a value of 0.00

[RW]

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.

 

[Gord Dibben]

Have you tried Data>Filter>Autofilter for 0.00 and deleting the resultant
rows?


Gord Dibben MS Excel MVP

 

[RW]

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]

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