DELETE Row if Cell Value in Column is Zero 0

[HotNumbers]

Why can't i get this to work. I need to delete the row if a cell in P10:P50000 has a 0


Part of the code

Dim ChkRange As Range
Set ChkRange = Range("p1050000")

Dim cell As Range

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

 

[VoG]

It should be 0 not "0" plus you need to loop backwards when deleting rows. Try

For i = 50000 To 10 Step -1
    If Range("P" & i).Value = 0 Then Rows(i).Delete
Next i

 

[HotNumbers]

VoG

Thanks a million... first for a short code that really works... and second for your explination...