ein letztes Excel-vb-Problem

[Vatar]

Ich erzeuge anhand von ausgewerteten Daten zwei Diagramme.
Nun möchte ich diese Diagramme positionieren und habe dabei das Problem das Excel den Charts immer inkrementelle Namen gibt "Chart 1", "Chart 2", "Chart 3", ...

und über diesen Namen muss ich auf das Diagramm zugreifen um es verschieben zu können.
Wie kann ich den Namen (die genaue eindeutige ID) vegeben

Set aChart = Charts.Add
    ' Eigenschaften des Diagramms
    With aChart
        ActiveChart.ChartType = xlColumnClustered
        ActiveChart.SetSourceData Source:=Sheets("Auswertung").Range("A1")
        ActiveChart.SeriesCollection(1).Delete
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).XValues = "={""Ok"", ""TCP failed"", "" Timeout"", ""ProtocolError"", ""Reserved (not used)"", ""Keyword(s) not found"", ""Server failed"", "" Error""}"
        ActiveChart.SeriesCollection(1).Values = xlRange
        ActiveChart.SeriesCollection(1).Name = "=""Anzahl"""
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Diagramme"
        ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False, HasLeaderLines:=True
        ' positionieren
        ActiveSheet.ChartObjects("Chart 11").Activate
        ActiveChart.ChartArea.Select
        ActiveSheet.Shapes("Chart 11").IncrementLeft 230.25
        ActiveSheet.Shapes("Chart 11").IncrementTop 159
    End With

In obigen Beispiel funktioniert es nur dann wenn ich so oft neue Charts mache bis ich 11 erreicht habe. Und beginnen tut er mit "Chart 2".
Natürlich könnte ich jetzt über "Chart 2" und "Chart 3" auf die Dinger zugreifen, das funktioniert dann aber nur einamal. Will ich es nocheinmal durchlaufen lassen (vb neu starten) dann haben Sie die Namen 4 und 5 und nix geht mehr