Try this

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

Regards,
Mike

"AA2e72E" wrote:

How do I delete an existing pivot table programatically?

Thanks.