I am trying to alter the data items that are displayed inside a pivot table.
This hides everything except the first item - but it recalculates the table
after everytime it changes one of the properties. I would like to stop this
so that there is only one recalculation made when all of the properties have
been set.

For i = 2 To j
ActiveSheet.PivotTables("PivotTable3").PivotFields ("Invoice
Date").PivotItems.Item(i).Visible = False
Next

I would also like a bit of code that is equivalent to ticking the "(show
all)" box in the drop down list on the pivot table.

Any help appreciated

Turn on the macro recorder while you tick ShowAll.

--
Regards,
Tom Ogilvy

"rikky" wrote in message
...
I am trying to alter the data items that are displayed inside a pivot
table.
This hides everything except the first item - but it recalculates the
table
after everytime it changes one of the properties. I would like to stop
this
so that there is only one recalculation made when all of the properties
have
been set.

For i = 2 To j
ActiveSheet.PivotTables("PivotTable3").PivotFields ("Invoice
Date").PivotItems.Item(i).Visible = False
Next

I would also like a bit of code that is equivalent to ticking the "(show
all)" box in the drop down list on the pivot table.

Any help appreciated