I have this code that I am trying to change the scaling from cells on the
worksheet. However it is giving me an error saying "unable to get the
ChartObjects property of the worksheet class" Any ideas?


Private Sub Worksheet_Change(ByVal Target As Range)

Dim iChart
Dim cht

If Not Intersect(Target, Range("U236:X237")) Is Nothing Then
For Each iChart In Array(1994)
Set cht = ActiveSheet.ChartObjects(iChart).Chart
With cht.Axes(xlValue)
.MinimumScale = ActiveSheet.Range("U237")
.MaximumScale = ActiveSheet.Range("U236")

End With
Next
End If
End Sub