I have code in a program that clears all data from all forms on all sheets.
As part of this program I execute the following code to delete all existing charts:
Dim wsItem As Worksheet
Dim chtObj As ChartObject
For Each wsItem In ThisWorkbook.Worksheets
For Each chtObj In...