Pivot Table

  • Thread starter Thread starter Guest
  • Start date Start date
Try this

Sub RemovePivots()
For Each PT In ActiveSheet.PivotTables
PT.PivotSelect "", xlDataAndLabel, True
Selection.Clear
Next
End Sub

Regards,
Mike
 
Great stuff!
Thank you very much.

MIKE215 said:
Try this

Sub RemovePivots()
For Each PT In ActiveSheet.PivotTables
PT.PivotSelect "", xlDataAndLabel, True
Selection.Clear
Next
End Sub

Regards,
Mike
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

Unable to Group in Pivot Table 1
refresh multiple pivot tables in workbook 2
delete pivot table data fields 1
How to add straight line from cell value in pivot table chart 1
Expand and collapse 2
Pivot table multiple filters 2
How I can set dynamic pivot table ONLY when I have enough data point 1
Pivot cache when pivot table copied 1

Back
Top