Set Pivot Table Filters across Worksheets

[SUPPO_USN]

I am attempting to set up a macro that will cycle through the worksheets in my file and update my pivot tables.

The below code will cycle through each worksheet and each pivot table:

Please Login or Register  to view this content.

the next step is where I'm having issues. I want to update two filters on each pivot table (all the same) . I attempted to record a macro to figure out how to get it done, but can't figure out how to incorporate it into my for /next loops:

Please Login or Register  to view this content.

I get the error "Method 'PivotTables' of object'_worksheet' failed." when I try the below code:

Please Login or Register  to view this content.

any guidance is appreciated.

[SUPPO_USN]

Ok,

SO I've partially figured out my issue. I can't utilize the following code:

Please Login or Register  to view this content.

I have to set a variable and use that variable in my code as such:

Please Login or Register  to view this content.

my follow up question is regarding the filters. How do I deselect all the options I don't want and just the ones listed in the code above. the only way I've found thus far is to set the .Visible property to False, but I don't know what values may or may not be in the filter to set them to False...

I tried

Please Login or Register  to view this content.

but got an error.

Anyone have insight on clearing filters

[SUPPO_USN]

So I have a 99% solution coded below:

Please Login or Register  to view this content.

The issue I'm still working on is in the For Loop. It won't uncheck the last item in each filter. For the first filter, it's not currently an issue since the last item is an item I want included anyway. for the last filter, I had to hard code turning off #VALUE! hoping it will always be the last item in the list.

Is there a function that can select the last filter item? This way, I could run the code listed above, setting the .Visible = True tags (or just one of them) to the one(s) I want, unselect the last item in the filter list, then reapply the .Visible = True code.