Dim sh as Worksheet, pt as PivotTable
for each sh in worksheets
if sh.PivotTables.count 1 then
for each pt in sh.PivotTables


Next
end if
Next

--
Regards,
Tom Ogilvy


"ridawg" wrote:

Hey,

I need to loop through all the worksheets in a workbook and for each
worksheet with a pivot table I want to cleanup the pivot cache.

I've done this for workbooks where all the worksheets have a pivot table but
I'm having trouble doing this where some worksheets have a pivot table and
some don't. My guess is I need to determine if a worksheet has a pivot table
and if it does clean it up otherwise move on to the next spreadsheet.

I'm converting existing VBA code to VB.NET 2005 so an example using either
language would work for me.

Thanks for the help!

--
-ridawg