Delete pivot table

Zic · May 25, 2004

Hi all
XL2003
I have been looking for a "sensible" way to delete a pivot table in my
workbook but to no avail.
Currently here is below what I use, can someone supply a better method?
ThisWorkbook.Sheets("Data").Activate
ActiveSheet.PivotTables(1).PivotSelect "", _
xlDataAndLabel, True
Selection.Clear

TIA

Zic

Debra Dalgleish · May 25, 2004

You can use the TableRange2 property:

ActiveSheet.PivotTables(1).TableRange2.Clear

Zic · May 25, 2004

Thank you Debra this works a treat!
Zic

Debra Dalgleish said:
You can use the TableRange2 property:

ActiveSheet.PivotTables(1).TableRange2.Clear