Sub DeleteAllCharts()
    Dim chtObj As ChartObject
    For Each chtObj In graphSheet.ChartObjects
        chtObj.Delete
    Next chtObj
End Sub