VBA Optimisation

[James Burger]

Hi All,

I have this VBA code line but about 60 of them one below the other and refreshes the pivot after each line I think:

Line 1 - Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("Location").CurrentPage = Sheets("Sheet1").Range("C4").Text
....
Line 60 - Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("Size").CurrentPage = Sheets("Sheet1").Range("C444").Text


Is there a way to turn refresh off before the code is run and then turn it back on at the end of the code please?

Many thanks for your help.

JB

 

[RoryA]

Sure - like this:

With Sheets("Sheet1").PivotTables("PivotTable1")
    .ManualUpdate = True
.PivotFields("Location").CurrentPage = Sheets("Sheet1").Range("C4").Text
....
.PivotFields("Size").CurrentPage = Sheets("Sheet1").Range("C444").Text
.ManualUpdate = False
End With

 

[James Burger]

Many thanks Rory!

 

[RoryA]

Glad to help.