Delete a Pivot Table

[Guest]

I have a Worksheet with a bunch of Controls (combo boxes, text boxes, etc)
and a Pivot Table. I need to be able to programmatically delete or remove the
Pivot Table without deleting the Worksheet (because I need to keep the
Controls intact). Does anyone know how to do that? BTW, even if it can't be
done programmatically, is there a way to do it manually? Thanks in advance.
Best Regards,
Dean

 

[Jim Cone]

Dean,
The help file is not much help on this one.
(I think the summer intern must have come up with this one)<g>

ActiveSheet.PivotTables("name").TableRange2.Clear
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"SaeOngJeeMa"
<[email protected]>
wrote in message
I have a Worksheet with a bunch of Controls (combo boxes, text boxes, etc)
and a Pivot Table. I need to be able to programmatically delete or remove the
Pivot Table without deleting the Worksheet (because I need to keep the
Controls intact). Does anyone know how to do that? BTW, even if it can't be
done programmatically, is there a way to do it manually? Thanks in advance.
Best Regards,
Dean

 

[Debra Dalgleish]

To delete the first pivot table on the active sheet:

ActiveSheet.PivotTables(1).TableRange2.Clear

 

[Guest]

Thanks Jim and Debra. Works great!