PivotTable, Pivotfield selective invisible, too slow
 

Hi,

If the row in PivotTable are all "0", I want to make it invisible.

Dim PI as PivotItem

For each PI in PT.PivotFields("Account")
IF ...row = 0.... Then
PI.visible=False
Else
PI.visible=True
End IF
Next PI

It works, but PivotTable seems to update itself all the time, and it takes
too long to update the whole table.

I tried to use PT.ManualUpdate=False at the beginning, and then
PT.ManualUpdate=True at the end of the code. But the macro doesn't seem to
work.

Is there a quicker way?

Thanks a lot.

Sam