You could turn on manual update:

ActiveSheet.PivotTables(1).ManualUpdate = True


witek wrote:
As above.


There is a code:

For i = 1 To iDataCols / 2
With ActiveSheet.PivotTables(sDatabase1Name).PivotField s(FieldNames(i))
.Orientation = xlDataField
.Caption = "Sum of " & FieldNames(i)
.Position = i
.Function = xlSum
End With
Next i

Every iteration needs more and more time, because pivot table is
recalculated in each iteration.

Is there any way to switch it off similar to Application.Calculation =
xlCalculationmanual.

Application.Calculation does not work on pivot tables.
Thanks



--
Debra Dalgleish
Contextures
http://www.contextures.com/tiptech.html