Delete if value is 0

[Bob Phillips]

Fat fingers.

[vba]]
Private Sub CommandButton1_Click()
Call test
End Sub
Sub test()
Application.ScreenUpdating = False

With Worksheets("Face")

lastrow = .Cells(.Rows.Count, "AL").End(xlUp).Row
For i = lastrow To 2 Step -1

If .Cells(i, "J").Value <> "" And .Cells(i, "AL").Value = 0 Then

.Rows(i).Delete
End If
Next i
End With

Application.ScreenUpdating = True
End Sub [/vba]