Simple Sub Delete Pivot Table "PTableName":
Sub Test() Dim WB As Workbook, WS As Worksheet, PT As PivotTable Set WB = ThisWorkbook Set WS = WB.Worksheets("PivotTable") Set PT = WS.PivotTables("PTableName") WS.Range(PT.TableRange2.Address).Delete 'ActiveWorkbook.ActiveSheet.Range(ActiveWorkbook.ActiveSheet.PivotTables("PTableName").TableRange2.Address).Delete End Sub
Sub to Delete PivotTable w/ Sheet & Table Name As Arguments:
Sub DeletePivotTable(ptName As String, SheetName As String) Dim WB As Workbook, WS As Worksheet, PT As PivotTable Set WB = ThisWorkbook Set WS = WB.Worksheets(SheetName) Set PT = WS.PivotTables(ptName) WS.Range(PT.TableRange2.Address).Delete End Sub Sub Test() Call DeletePivotTable("PTableName", "PivotTable") End Sub