I have written code to filter an array of data:

ActiveSheet.Range(“$A$1:$K$10000”).AutoFilter Field:=3, Criteria1:=Array(“3340”, “3341”, “3345”, “3347”, “3349”, “3350”, “3353”, “3360”, “3361”, “3363”, “S5D1”, “S5D7”, “S5D9”, _
“S5E3”, “S5E4”, “S5E8”, “S5E9”, “S5H1”, “S5Q2”, “S5Q3”), Operator:=xlFilterValues

How can I make the filter leave only the values in the array and delete all rows that are not in the array?  

Thank you in advance!

​I have written code to filter an array of data:ActiveSheet.Range(“$A$1:$K$10000”).AutoFilter Field:=3, Criteria1:=Array(“3340”, “3341”, “3345”, “3347”, “3349”, “3350”, “3353”, “3360”, “3361”, “3363”, “S5D1”, “S5D7”, “S5D9″, _”S5E3”, “S5E4”, “S5E8”, “S5E9”, “S5H1”, “S5Q2”, “S5Q3”), Operator:=xlFilterValues How can I make the filter leave only the values in the array and delete all rows that are not in the array?   Thank you in advance!  Read More

​