Maximalwert in Diagrammen

Sub SORT_Lesen()
s = Sheets(1).Range("C5").Value
m = Sheets(1).Range("B9").Value
Range(("A3" & ":N" & s + 2)).Sort Key1:=Range("E2"), Order1:=xlDescending
ActiveSheet.Unprotect
ActiveSheet.ChartObjects("Diagramm 9").Chart.Axes(xlCategory).Select
ActiveSheet.ChartObjects("Diagramm 9").Chart.ActiveChart.MaximumScale = m
ActiveSheet.ChartObjects("Diagramm 9").Chart.SeriesCollection(1).XValues = Range("B3" & ":B" & _
s + 2)
ActiveSheet.ChartObjects("Diagramm 9").Chart.SeriesCollection(1).Values = Range("E3" & ":E" &  _
s + 2)
ActiveSheet.ChartObjects("Diagramm 9").Chart.ChartTitle.Characters.Text = Worksheets("Planung" _
).Range("D9").Value
ActiveSheet.Shapes("Schaltfläche 3").Select
Selection.Caption = Worksheets("Planung").Range("D9").Value
ActiveSheet.Protect , , , , , , , , , , , , , True, True
End Sub