Delete rows if cell in column H is zero

[MOB]

Data is in rows 2:3001

If the value in column H of each row is zero I need the entire row deleting.

Sub DeleteRows()

Dim ChkRange As Range
Set ChkRange = Range("H2:H3001")

Dim cell As Range

For Each cell In ChkRange
    If cell = "0" Then
        cell.EntireRow.Delete
    End If
Next

End Sub

I thought the above would work but it seems to only remove a couple of rows, where most of them should be deleted!!

TIA

 

[Fluff]

Are the zeros values, or the result of a formula?

 

[MOB]

Initially on another tab calculated using a formula, but paste special-values into the above spreadsheet

 

[Fluff]

In that case, try

Sub DeleteZeros()

With Range("H2:H3001")
   .Replace 0, "=XXX", xlWhole, , , , False, False
   On Error Resume Next
   .SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
   On Error GoTo 0
End With
End Sub

 

[MOB]

Spot on, thanks

 

[Fluff]

Glad to help & thanks for the feedback