Hello Tony,

You could just change the Criteria1 as follows:-

Firstly declare a variable such as:-

Dim Crit1 as string
then give the variable a value:-

Crit1 = sws.Range("B1").Value
then filter on Crit1

.AutoFilter 3, Crit1
You should then be able to filter on whatever value that you place in B1 (from a drop down perhaps?).

I hope that this helps.

Cheerio,
vcoolio.