I understand, thanks again for everything. Last question. I have a properly working VBA script that removes all charts/tables in the whole presentation. However, it's missing a loop hence the reason I have to click on the macro several times to have all tables/charts removed. How can I integrate a loop in the following VBA script?

Sub DeleteAllGraphs()
    Dim objApp, objSlide, ObjShp, objTable
    On Error Resume Next
    Set objApp = CreateObject("PowerPoint.Application")
    On Error GoTo 0
    For Each objSlide In objApp.ActivePresentation.Slides
        For Each ObjShp In objSlide.Shapes
            If ObjShp.Type = msoPicture Then ObjShp.Delete
                For Each objTable In objSlide.Shapes
                    If objTable.Type = msoTable Then objTable.Delete
        Next
    Next
Next
End Sub