Displaying data in pivot tables
 

I am trying to alter the information displayed in a pivot table. The problem
I have is that the pivot table refreshes itself after the property has been
set for each item. I would like to stop this happening until all of the items
have changed and then do one refresh at the end.

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

Conversely I would also like to be able to 'tick' the equivalent of the
"(show all)" box in the drop down list.

Any help is apprecitated.

Many thanks