VBA Pivot Refresh

I have the following code which will loop through each pivot item and mark the listed criteria as FALSE, then for everything show them as TRUE,

When i run the code i get an error on this line - Run-time error '1004':

Unable to set the Visible property of the PivotItem class

Please Login or Register  to view this content.

Full code of this section is

Please Login or Register  to view this content.

Yes, the items listed i am filtering out of the pivot then marking everything else as visible

Which item were you referring to?

The error occurs on trying to select all the other pivot items as visible after select the name criteria as not visible

Yes, i've tried changing the word True to Yes, or visible or active but no luck

As requested.

It seems like this is what you're looking for:

Please Login or Register  to view this content.

This will test for pivot items containing your values.

Joseph,

The code runs, it just doesn't apply the logic to the pivot items...

Yes it did have an error which was corrected on the advice, the code ran but didn't apply the logic, now i've tried djdjdj code and it still error's on;

Please Login or Register  to view this content.

I now have an Invalid or unqualified reference for;

Please Login or Register  to view this content.

Using your sample workbook, this code runs and filters your pivot table without error. Just copy and paste it in:

Please Login or Register  to view this content.

You had an "End With" at the bottom of your code which caused an error. I took it out and the code runs fine.

Thanks, i've tried to run it again with your changes and get the following message;

"Unable to get the PivotFields property of the pivottable class"

Can you attach the worksheet you're using? It's obviously different from your sample sheet. Here's your sample sheet with the code pasted in; it runs without error and filters according to what I understand is your logic.

My pivot is exactly the same other than it has 40000 lines of data, the sample i gave you was a small extract of it.

Could that be the issue as the data is so large?

I think that if your data was too large Excel would freeze rather than causing the script to error. If you open the sample workbook that I uploaded (two posts up), does the script run and filter like you want it to?

Yes it does, that's why i can't understand why it won't work on my full amount of data...