Automatic Deleting of Rows

Good Day Dear Experts,

I wish to accomplish the followings automatically:
1. search for all columns containing a given nummeric value (e.g 0)
2. Deleting all ROWS with having that value,
3. and saving the function as a macro

Nice to have:
Exiting Excel invokes the funktion automatically!

Much obliged!
Steve

Steve

Try this on a backup copy of your data

It assumes Data is in column A

Search is case sensitive eg a is not the same as A


Sub DelRecords()
Dim lRow As Long
Dim sTxt As String

sTxt$ = InputBox("Remove Rows With?")

For lRow = Cells(Rows.Count, "a").End(xlUp).Row _
To 1 Step -1
If Cells(lRow, "a") = sTxt Then
Rows(lRow).Delete
End If
Next lRow
End Sub