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?
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