Need assistance writing what should be an easy code

[thewiseguy]

I'm a novice at this so this is what I am looking for:

wherever in column A there is a "0" delete the entire row



Thanks in advance.


twg

 

[Sal Paradise]

Try on a copy first, but this works for me:

Sub Test()
    Dim i As Integer
    
    With Worksheets("Sheet1")
        For i = 1 To .Range("A1").End(xlDown).Row
            If .Cells(i, 1) = 0 Then
                .Cells(i, 1).EntireRow.Delete
            End If
        Next i
    End With
        
End Sub