2nd Input for Row Deletion Requirements not Applying Properly

[Neild137]

I had a code to prompt for two different inputs to search another sheet and the delete the entire row if two conditions where met (entry ID $ and date). I adjusted this to re-select the data worksheet, because it was originally also deleting the actual row of the worksheet that this button was located in.
I think the Date Input is no longer applying properly now. Anybody have any ideas?

<code>Sub DeleteRowNow()

On Error Resume Next

Dim userinput As String, DateInput As String
userinput = InputBox("Enter a value to search for.", "Column A Search")
DateInput = InputBox("Enter a date to search for.", "Column AN Search")
Dim findrange As Range
Dim firstaddress As String
Set findrange = ThisWorkbook.Sheets("Location File Data").Columns("A").Find(what:=userinput, lookat:=xlWhole, LookIn:=xlValues)
If findrange Is Nothing Then
MsgBox "No matching search results"
Exit Sub
Else
Sheets("Location File Data").Select
findrange.EntireRow.Select
Selection.EntireRow.Delete
Sheets("Compare").Select
End If

End Sub</code>

 

[Neild137]

I added in one row to selection the Location File Data sheet after the data input boxes.
This works like a charm now!
Thank you much.

 

[Neild137]

Works great. I added in one row to select the Location File Data sheet after the input boxes. Thank you much.

 

[Neild137]

Scott,
Works like a charm! I just had to specify to select the appropriate worksheet before deletion.
Thank you!

 

[Scott T]

Glad to help