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