Additional Help With AutoFilter VBA Coding

With the help of others in this forum, I've almost completed my coding project.

I have a list in column "B" which includes:

Pending (Responded)
Assigned
Closed - No Action Needed
Available

When I run the loop portion of this sub, I get the following string result:

str = "Pending (Responded)", "Assigned", "Closed - No Action Needed", "Available"

Now I need help using this string for the Criteria1 part of the AutoFilter method

When I use this: str = Array(res), I get the Type mismatch error
When I use this: str = "Array(" & res & ")", it doesn't filter anything and hides all the rows.

Any help is appreciated

Please Login or Register  to view this content.

AlphaFrog - when I use your coding, I get a type mismatch error for "arr". Even when I try to print (using immediate window or debug.print) that string, I get the error.

Your last code doesn't filter anything, it just hides all the rows.

Attached is a sample file.

your coding is in Module 3, Try_This3

I uploaded the wrong file.

Once I used the right file and columns of data, it works.

I have another question - is there a way to clear the UsedRange without having to save/close the workbook?

The file I uploaded originally had 207K records, but I deleted all except 30K+. When I use Ctrl-End, it still includes all 207K records. I would like to have it only recognize the 30K records