Mehrere Charts per VBA erstellen lassen, Titel wird nicht angezeigt

Saluti,

folgender Code funktioniert einwandfrei für das erste Diagramm, bitte beachtet die (1) hinter dem ChartObjects.

ActiveSheet.Shapes.AddChart(xlColumnClustered, 450, 100, 250, 170).Select
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = 0

ActiveSheet.ChartObjects(1).Chart.HasTitle = True
ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text = "Umsatz Postleitzahl " & strPLZ  

With ActiveChart
    .SeriesCollection.NewSeries
    
    With .SeriesCollection(1)
        .Name = "" & (intjahr - 1)  
        .Values = lngUmsatzAktuellesJahr(0, intPLZ)
       
              
        '2dim Array: i(0) = Geschäftsjahr, intPLZ = PLZ-Bereich  
    End With
    
    .SeriesCollection.NewSeries
    With .SeriesCollection(2)
        .Name = "" & intjahr  
        .Values = lngUmsatzAktuellesJahr(1, intPLZ)
    End With
End With

Das zweite Diagramm baue ich identisch, die Diagrammfläche wird angezeigt, aber nicht der Titel. Offensichtlich ist das ansprechen mit ChartObjects(2) falsch?

ActiveSheet.Shapes.AddChart(xlColumnClustered, 700, 100, 600, 250).Select
ActiveSheet.ChartObjects(2).Activate
ActiveSheet.ChartObjects(2).Chart.Axes(xlValue).MinimumScale = 0
' Setzen des Diagrammtitels  
ActiveSheet.ChartObjects(2).Chart.HasTitle = True
ActiveSheet.ChartObjects(2).Chart.ChartTitle.Text = "beteiligte Kunden " & intAnzahlKunden  

Kann mir einer das mal bitte einer näherbringen, wie ich für ein n-tes Diagramm den Titel angeben kann, wie ich es anspreche?
Googlen bringt mich immer in die Nähe aber letztendlich komm ich zu keiner Lösung