Pivot Table Manual Calculation

[Wries]

Hello All,



situation:
I have a pivot field with more than 500 items.
I need a macro that will make a multiple selection for e.g. 5 items everything else unselect.
Everything i have tried so far makes the pivot table update after each item is set to visible = false or true

what i have tried so far:
for each item in pivotfield("").pivotitems
this apparently goes item by item and each time sets visibility to false pivot update values

with pivotfield("")
.item(1).visible = false
.
.
.
item(500)
again case by case and updating after each

enable events false doesnt work
application.calculation manual doesnt work
pivottable.manual update doesnt work (this set manual update only when moving fields across pivottable field list but has no effect on changes in filters)

solutions?
1) Is there a way how to make pivot to stop automatically updating the values when i change filter in pivotfields?
2) is there a way how to push the visible = false for everything except from 5 items at once so that only one update in pivot values is made?
3) if none of the above is possible then i will have to either create a groups of items or create a separate column in source data which will refer to group.

Thanks a lot
kind regards,
Wries