Thread: Macro to delete rows not containing a specified value

You could use this - It will ask for a number using an inputbox and any row NOT containing the number will be deleted

Sub srchDel()
Dim questDel As Long
questDel = Application.InputBox(Prompt:= _
        "Please Select a Number as Criteria Not to Delete", _
        Title:="InputBox Method", Type:=1) 'Type 1 is a number, 2 is a string
lrow = Cells(Rows.Count, "C").End(xlUp).Row
Set xRng = Columns("C:C")
Set yRng = Range("C2:C" & lrow)
  
On Error Resume Next
With xRng
   .AutoFilter Field:=1, Criteria1:="<>" & questDel, Operator:=xlAnd
      yRng.SpecialCells(xlCellTypeVisible).EntireRow.Delete
   .AutoFilter
End With
On Error Goto 0
End Sub

Hope this helps.
Anthony
“Confidence never comes from having all the answers; it comes from being open to all the questions.”
PS: Remember to mark your questions as Solved once you are satisfied and rate the answer(s) questions.”

PS: You could set the Type to the various attributes for the Inputbox depending on what you are searching for
0 A formula
1 A number
2 Text (a string)
4 A logical value (True or False)
8 A cell reference, as a Range object
16 An error value, such as #N/A
64 An array of values
Hope this helps.
Anthony
“Confidence never comes from having all the answers; it comes from being open to all the questions.”
PS: Remember to mark your questions as Solved once you are satisfied and rate the answer(s) questions.”

-delete - double post

This Macro works perfectly!!! Thanks so much for the help!