With ActiveSheet.ChartObjects(1).Chart
.Axes(xlCategory).MinimumScale = Range("E1").Value
.Axes(xlCategory).MaximumScale = Range("E2").Value
.Axes(xlValue).MinimumScale = Range("E3").Value
.Axes(xlValue).MaximumScale = Range("E4").Value
.Axes(xlValue, xlSecondary).MinimumScale = Range("E5").Value
.Axes(xlValue, xlSecondary).MaximumScale = Range("E6").Value
End With