Add input box to a Macro - Find word and delete row

[Need Help Please]

I have a macro that works and find the word total in a spreadsheet and deletes the entire row. I also would like to delete other rows like Grand Total and Account Name. Can someone tell me how to add an input box to this code or modify the code so it can ask for a word then delete all rows that have that word in it. Thanks in advance!!!

Here is the code:

Sub DeleteRows()
 
Dim rFound As Range, Str As String
Application.ScreenUpdating = True
On Error Resume Next

Str = "total"

Do
    Set rFound = Cells.Find(Str, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)
    If Not rFound Is Nothing Then Rows(rFound.Row).EntireRow.Delete xlShiftUp
Loop Until rFound Is Nothing

Application.ScreenUpdating = True
End Sub

 

[AlphaFrog]

Try something like this...

    Str = Application.InputBox("Enter word to search for.", "Delete Rows with Word", "total", Type:=2)
    If Str = "False" Then Exit Sub  'User canceled

Also, it's not a good idea to use On Error Resume Next to ignore all errors. How would you know if you have a problem?

Application.InputBox

 

[Need Help Please]

Great, thanks so much for your help. This helps. I've only used VBA two other times and I copied part of the code I found. I appreciate your tip on the on error resume, I will remove this. Thanks again!