Delete pivot table

  • Thread starter Thread starter Zic
  • Start date Start date
Z

Zic

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
 
You can use the TableRange2 property:

ActiveSheet.PivotTables(1).TableRange2.Clear
 
Thank you Debra this works a treat!
Zic
Debra Dalgleish said:
You can use the TableRange2 property:

ActiveSheet.PivotTables(1).TableRange2.Clear
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Name of the current pivottable from active cell 2
Coded to delete extra rows after pivot table 2
Return Rows of Selected Range in a Pivot 4
Dynamic data in PivotSelect statement 1
VBA Pivot Table Error 1
Trying to clean up code that I did through a record macro 1
Using VBA to rename Pivot Table Query 3
Corrupt files due to pivot remnants after saving via VBA 0

Back
Top