VBA code error

[dan03uk]

Need some help with this VBA code, I can't see why it doesn't work.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Target.Address
    Case "$E$2"
        ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlCategory) _
            .MaximumScale = Target.Value
    Case "$E$3"
        ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlCategory) _
            .MinimumScale = Target.Value
    Case "$E$4"
        ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlCategory) _
            .MajorUnit = Target.Value
    Case "$F$2"
        ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlValue) _
            .MaximumScale = Target.Value
    Case "$F$3"
        ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlValue) _
            .MinimumScale = Target.Value
    Case "$F$4"
        ActiveSheet.ChartObjects("Chart 2").Chart.Axes(xlValue) _
            .MajorUnit = Target.Value
    Case Else
End Select
End Sub

 

[Andrew Poulsom]

As I said before, if you want the code to apply to only one sheet use the Worksheet_Change event procedure on the appropriate sheet.

 

[dan03uk]

Thanks for the help. Sorry been a bit of an idiot and not reading what you said. Wright I have done what you said now and here is the code I have written, but it doesn't seem to be changing anything.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
    Case "$E$2"
        Sh.ChartObjects("Chart 3").Chart.Axes (xlCategory)
            .MaximumScale = Target.Value
    Case "$E$3"
        Sh.ChartObjects("Chart 3").Chart.Axes(xlCategory) _
            .MinimumScale = Target.Value
    Case "$E$4"
        Sh.ChartObjects("Chart 3").Chart.Axes(xlCategory) _
            .MajorUnit = Target.Value
    Case "$F$2"
        Sh.ChartObjects("Chart 3").Chart.Axes(xlValue) _
            .MaximumScale = Target.Value
    Case "$F$3"
        Sh.ChartObjects("Chart 3").Chart.Axes(xlValue) _
            .MinimumScale = Target.Value
    Case "$F$4"
        Sh.ChartObjects("Chart 3").Chart.Axes(xlValue) _
            .MajorUnit = Target.Value
    Case Else
End Select
End Sub

 

[Andrew Poulsom]

What do you mean by "it doesn't seem to be changing anything"? It will change Chart 3 if the values in E2:E4 or F2:F4 are changed by the user, but now you have no Sh object so Sh should be Me.