Hello Tony,
You could just change the Criteria1 as follows:-
Firstly declare a variable such as:-
then give the variable a value:-![]()
Dim Crit1 as string
then filter on Crit1![]()
Crit1 = sws.Range("B1").Value
You should then be able to filter on whatever value that you place in B1 (from a drop down perhaps?).![]()
.AutoFilter 3, Crit1
I hope that this helps.
Cheerio,
vcoolio.
Bookmarks