Dimensionierung von Objekten

ich mochte mit dem folgenden Makro die y-Achse von 3 Diagrammen ansprechen:

Sub achsenadjustierung()
Dim schleife%, chart As ChartObject

For schleife = 1 To 3
Maximum_y = WorksheetFunction.Even(WorksheetFunction.Max(Range("ChartMax" & schleife)))

'ActiveSheet.ChartObjects(diagramname).Activate
chart = "Diagramm" & schleife

With [chart].Axes(xlValue)
.MinimumScale = 0
.MaximumScale = Maximum_y
End With

With [Diagramm & schleife].Axes(xlValue, xlSecondary)
.MinimumScale = 0
.MaximumScale = Maximum_y
End With
Next
End Sub

Leider habe ich jedoch offenbar ein Dimensionierungsproblem, so daß ich "chart" nicht ansprechen kann.

Wer hat eine Idee?

Danke.

Matthias