To delete pivot table

To delete pivot table


Sub DeleteAllPivotTables()
'PURPOSE: Delete all Pivot Tables in your Workbook
'SOURCE: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim pvt As PivotTable

'Loop Through Each Pivot Table In Currently Viewed Workbook
  For Each sht In ActiveWorkbook.Worksheets
    For Each pvt In sht.PivotTables
      pvt.TableRange2.Clear
    Next pvt
  Next sht
 
End Sub
-------------------------------------------------------------------------------
Sub DeleteSpecificPivotTablesMON()

    Dim Wks As Worksheet
    Dim PT As PivotTable
   
    If ActiveWorkbook Is Nothing Then
        MsgBox "There is no active workbook!", vbExclamation, "ERROR!"
        Exit Sub
    End If
   
    For Each Wks In ActiveWorkbook.Worksheets
        For Each PT In Wks.PivotTables
            Select Case PT.Name
                Case "PivotTable1"
                    PT.TableRange2.Clear
            End Select
        Next PT
    Next Wks
   
End Sub