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