variable ChartArea

Ich habe ein Diagramm als eigenständiges Blatt.
Die Area ändern sich wöchentlich.
Meine Frage: Wie kann ich das per Macro lösen?

Bei der Suche im Archiv fand ich folgenden Code:

Sub Test()
Dim cht As Chart
Dim rng As Range
Set cht = Worksheets(1).ChartObjects(1).Chart
With Worksheets(2)")
Set rng = .Range(.Cells(45, 4), .Cells(45, 89))
End With
cht.SeriesCollection(1).Values = rng
End Sub

Dieser und auch alle anderen gefundenen Beispiele beziehen sich auf Diagramme die als Objekte in Tabellenblätter eingefügt sind.

Wie sieht die Lösung für eigenständige Diagramm-Blätter aus?

Danke, Arno