Programming Excel with VBA and .NET

Name

pivotcache.MemoryUsed

Synopsis

Returns the amount of memory used by the pivot cache in bytes. The following code displays the total memory used by pivot caches in the Immediate window:

Sub CountCache(  )
    Dim pc As PivotCache, mem As Long
    For Each pc In ActiveWorkbook.PivotCaches
        mem = mem + pc.MemoryUsed
    Next
    Debug.Print "#PivotCaches", "Mem Used"
    Debug.Print ActiveWorkbook.PivotCaches.Count, mem \ 1024 & "K"
End Sub