Delete All Pivot Tables with Excel VBA

[Yasser Fathi Albanna]

السلام عليكم ورحمة الله وبركاته

أحبائى فى الله تقبلوا جميعا تحياتى

أقدم لكم اليوم كود لعله يفيد

Delete All Pivot Tables with Excel VBA

Sub RemPiv() 'Excel VBA to Delete all pivot tables in a worksheet.

    Dim Pt As PivotTable

    

    For Each Pt In ActiveSheet.PivotTables

        Pt.TableRange2.Clear

    Next Pt

End Sub

 

 

[Yasser Fathi Albanna]

أتمنى أن يكون الموضوع عجب أحد من الأخوة