Hi!
I'm trying to to make the Data List Custome filter more user friendly, so I would like to have the user enter the key search word into a cell and click a button.
What I have is as follows but it does not work,
<code start>
Sub serch2()
Dim key1 As Range
key1 = Worksheets("Data 1").Cells(1, 7)
Range("B1").Select
Selection.AutoFilter Field:=2, Criteria1:="=*key1*", Operator:=xlAnd
Range("G1").Select
End Sub
<code End>
Any help would be greatly appreciated!
Thanks for reading!!
Bookmarks