Easy VB question

[pagrender]

Hi everyone,

Here's an easy question for someone... how do I convert this code to a Worksheet Change Event?

Sub ChangeAxisScales()
With ActiveSheet.ChartObjects("AllDataChart").Chart

' Value (Y) Axis
With .Axes(xlValue)
.MaximumScale = ActiveSheet.Range("$G$2").Value
.MinimumScale = ActiveSheet.Range("$G$3").Value
.MajorUnit = ActiveSheet.Range("$G$4").Value
End With
End With
End Sub

Thanks!

 

[Blade Hunter]

Maybe this on the sheet level?

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.ChartObjects("AllDataChart").Chart
    With .Axes(xlValue)
        If Target.Address = "$G$2" Then .MaximumScale = Target.Value
        If Target.Address = "$G$3" Then .MinimumScale = Target.Value
        If Target.Address = "$G$4" Then .MajorUnit = Target.Value
    End With
End With
End Sub

 

[pagrender]

Just to verify...

When you say "on the sheet level", does that mean to right click on the tab name, choose view code, and paste the code into VB?

 

[Blade Hunter]

Just to verify...

When you say "on the sheet level", does that mean to right click on the tab name, choose view code, and paste the code into VB?

Spot on

 

[pagrender]

Great. Thanks!