mehrere Diagramme und anpassen X-Achse

Hallo VBA Profis,
das ist mein erster Beitrag.
In der Vergangenheit konnte ich bereits auf Euer Wissen zurückgreifen. Nahezu jedes Problem habt ihr schon gelöst!! schon mal ein dickes Lob an alle - Danke :)
Jetzt habe ich aber was kniffliges - ich komm einfach nicht weiter:
Mehrere Messwerte werden ausgewertet und in verschiedenen Diagrammen dargestellt, die Skaliert, beschriftet usw. werden.
Für meinen Endkunden möchte ich zum besseren Verständniss mehrere Diagramme auf ein Diagrammblatt packen und automatisch skalieren.
Momentan sieht es so aus:
Nachdem ich meine Messwerte eingelesen haben wechsle ich auf ein Diagrammblatt. Auf diesem befinden sich Schaltflächen 15h, 24h, 48h, 72h
Jeder Schaltfläche wurde ein Modul zugewiesen.
Der Code funktioniert soweit ganz gut, wenn jedoch das Diagrammsheet mit mehreren Diagrammen angepasst wird geht nix mehr.
--> Fehler 8000004005 (Laufzeitfehler)
Die Methode 'MinimumScale' für das Objekt 'Axis' ist fehlgeschlagen.
So sieht das aus:
________________________

Sub skalierungx24()
Application.ScreenUpdating = False
Sheets("M78").Select
With ActiveChart
.Axes(xlCategory, xlPrimary).MinimumScale = 0
.Axes(xlCategory, xlPrimary).MaximumScale = 24
.Axes(xlCategory, xlPrimary).MajorUnit = 5
End With
Sheets("M79_Abweichung").Select
With ActiveChart
.Axes(xlCategory, xlPrimary).MinimumScale = 0
.Axes(xlCategory, xlPrimary).MaximumScale = 24
.Axes(xlCategory, xlPrimary).MajorUnit = 5
End With
Sheets("errechnete Abweichung").Select
With ActiveChart
.Axes(xlCategory, xlPrimary).MinimumScale = 0
.Axes(xlCategory, xlPrimary).MaximumScale = 24
.Axes(xlCategory, xlPrimary).MajorUnit = 5
End With
Sheets("Abweichungen_neu").Select
With ActiveChart
.Axes(xlCategory, xlPrimary).MinimumScale = 0
.Axes(xlCategory, xlPrimary).MaximumScale = 24
.Axes(xlCategory, xlPrimary).MajorUnit = 5
End With
Application.ScreenUpdating = True
End Sub