VBA Set Dynamic Chart Minimum and Maximum etc

Option Explicit
Private Sub ChangeAxisScales()
    With ActiveSheet.ChartObjects("Chart 1").Chart
        ' Category (X) Axis, use .Axes(xlCategory, xlPrimary) for primary if there is secondary axis.
        With .Axes(xlCategory)
            .MaximumScale = ActiveSheet.Range("$E$2").Value
            .MinimumScale = ActiveSheet.Range("$E$3").Value
            .MajorUnit = ActiveSheet.Range("$E$4").Value
        End With
        ' Value (Y) Axis
        With .Axes(xlValue)
            .MaximumScale = ActiveSheet.Range("$F$2").Value
            .MinimumScale = ActiveSheet.Range("$F$3").Value
            .MajorUnit = ActiveSheet.Range("$F$4").Value
        End With
    End With