Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Target.Address = "$G$1" And Not Target.Address = "$G$2" And Not Target.Address = "$G$3" And Not Target.Address = "$G$4" Then Exit Sub
ActiveSheet.ChartObjects("Graph1").Activate
With ActiveChart
.Axes(xlValue).MinimumScale = Range("g2").Value
.Axes(xlValue).MaximumScale = Range("g1").Value
.Axes(xlValue, xlSecondary).MinimumScale = Range("G4").Value
.Axes(xlValue, xlSecondary).MaximumScale = Range("G3").Value
End With
End Sub