Auto Y-Scaling Chart

[Rui Soares]

Hi, I'm using this code to update the scale of a chart on the active sheet. I would like to move this chart to a different tab, a chart one, but I'm not being able to update the code to work, any ideas?

Select Case Target.Address
    Case "$A$2"
        ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) _
            .MaximumScale = Range("C2").Value
        ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) _
            .MinimumScale = Range("D2").Value
        ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) _
            .MajorUnit = Range("E2").Value
    Case Else
End Select