Delete if value is 0

[Bob Phillips]

[vba]

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[/vba]