I am running this code on a pivot table to reselect all the items that
I have previously unselected. It is taking too long to run because it
is updating the pivot table each time. It says "Calculating
PivotTable". Is there any way to pause the calculations of a pivot
table?
With Worksheets("PivotTable2").PivotTables(1)
For i = 1 To 6
For x = 1 To .PivotFields(i).PivotItems.Count
.PivotFields(i).PivotItems(x).Visible = True
Next
Next
End With
Thanks!
Tim
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
