Suspending PivotTable refresh in VB 1

[GoatieEddie]

Hi,

I have this code that works fine:

For Each PItem In ActiveSheet.PivotTables("PT-Table&quot.PivotFields("Name&quot.PivotItems
If Mid(PItem, 4, 1) = "A" Then PItem.Visible = True Else PItem.Visible = False
Next

However, each time it iterates it recalculates the pivottable. Can I turn this off at the beginning of the routine and back on at the end. I have tried Application.Calculation but this makes no difference.

Thanks,

GE

 

[xlbo]

from VBA help:

ManualUpdate Property
See Also Applies To Example Specifics
True if the PivotTable report is recalculated only at the user's request. The default value is False. Read/write Boolean.

expression.ManualUpdate

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks
This property is set to False immediately after your program terminates and after you execute the statement in the Immediate window of the Microsoft Visual Basic Editor.

Example
This example causes the PivotTable report to be recalculated only at the user's request.

Worksheets(1).PivotTables("Pivot1&quot.ManualUpdate = True


Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[GoatieEddie]

Top Marks. Big Star! Thanks.