davidhall80
Well-known Member
- Joined
- Jul 8, 2006
- Messages
- 663
I'm trying to automate this search, but VB isn't accepting the last 2 lines of code...Any ideas. Code is pretty self explanatory. Thanks in advance
Sub Asso_Name_Search()
On Error Resume Next
ActiveSheet.ShowAllData
First = InputBox("Enter 1st Name String")
Second = InputBox("Enter 2nd Name String")
Selection.AutoFilter Field:=2, Criteria1:=*First*
Selection.AutoFilter Field:=3, Criteria1:=*Second*
End Sub
Sub Asso_Name_Search()
On Error Resume Next
ActiveSheet.ShowAllData
First = InputBox("Enter 1st Name String")
Second = InputBox("Enter 2nd Name String")
Selection.AutoFilter Field:=2, Criteria1:=*First*
Selection.AutoFilter Field:=3, Criteria1:=*Second*
End Sub