Macro to filter and extract data from Excel operated from the Desktop

[drsudduth]

I would like to have a desktop button that I can select, then it would ask me what spreadsheet, filter terms, then filter that spreadsheet and return a new worksheet with the information I filtered on.

I used the following but have not gotten very far

Sub Quicker()
SearchFor = "*" & InputBox("Enter text to search for.") & "*"
Application.ScreenUpdating = False
Range("A3:IV3") = "Filter": Range("A3").Select
Selection.AutoFilter Field:=1, Criteria1:=SearchFor, Operator:=xlAnd
Selection.CurrentRegion.Copy Sheets("Sheet2").Range("A1")
Selection.AutoFilter
Application.ScreenUpdating = True
Range("A3:IV3").ClearContents: Sheets("Sheet2").Rows(1).EntireRow.Delete
End Sub