How to clean up PivotCache in a workbook?

[feipezi]

Hi,

I was trying to clean up PC in a workbook by the following code but it doesn't seem to work. Did I do anything wrong?

Please advise.

Thanks in advance.


Sub CleanMyPivots()
Dim pc As PivotCache
For Each pc In ActiveWorkbook.PivotCaches
pc.MissingItemsLimit = xlMissingItemsNone
pc.Refresh
Next
End Sub

 

[SkipVought]

Hi,

Why do you say, "it doesn't seem to work?"

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[feipezi]

Hi,

Because as I checked PivotCache Index, there is no change but the size of the file was getting smaller. That's why I said "it doesn't seem to work".

Thanks.

 

[SkipVought]

I wouldn't loose any sleep.