dim pvt as pivottable

for each pvt in activesheet.pivottables
msgbox pvt.name
next pvt
--
HTH...

Jim Thomlinson


"Shell" wrote:

How can I tell in code, I the current tab contains a pivot table.

Actually, I need the code for Access, But if I can see the code in an Excel
Macro I can translate it to Access VBA. (Hopefully)

Thanks
--
Shell