Ausgangspunkt: Pro Registerblatt befindet sich ein Diagramm. Ich möchte mit einem Makro das Diagramm auf dem Registerblatt markieren, ohne den Namen ("diagramm16" o.ä.) zu verwenden, sondern möchte allgemein das Diagramm ansprechen, um es dann löschen zu können. Die Löschung ist erforderlich, da ich anschliessend ein neues Diagramm erstelle und sich dadurch wieder der Diagramm-Name ändert. Vielen Dank schon mal für Eure Hilfe!
Der bisherige Code sieht etwa so aus...

Sheets("XXX").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete

Range("B39:C50").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("XXX").Range("B39:C50")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Aerius"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Requested Chart"
End With
ActiveChart.HasLegend = False
ActiveWindow.Visible = False