Speed up creating worksheets for all filters in pivot table

Hi members,

I have a workbook for which i want to create new worksheets for every item in the filter selection.
Since i want to modify the created worksheets and only keep the values and not the pivot itself, i created a code which seems to work, but is quite slowly.

Is there a way how i can speed up this code?

Please Login or Register  to view this content.

I cannot seem to upload the file ....
The problem is that the following code

"For Each PI In Worksheets(MyWs).PivotTables(MyPIV).PivotFields(MyField).PivotItems
PI.Visible = True

For Each PI2 In Worksheets(MyWs).PivotTables(MyPIV).PivotFields(MyField).PivotItems
If Not PI2.Name = PI.Name Then PI2.Visible = False
Next PI2'"

is comparing each item to each other (>500 options), whilst i am sure that all the filters available, would always have to be generated.
Any suggestions?