Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("b12:b15,c7:e7")) Is Nothing Then
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.Axes(xlValue).MinimumScale = Range("B12").Value
.Axes(xlValue).MaximumScale = Range("B13").Value
.Axes(xlCategory).MinimumScale = Range("B14").Value
.Axes(xlCategory).MaximumScale = Range("B15").Value
End With
End If
End Sub