how can i get this macro to ref to a cell in the current sheet?

[tonywatsonhelp]

Hi Everybody,
I need some help with this macro please,
it currently has set values for MinimumScale and MaximumScale, but i need these to change
so Id like to reference these to a cell in the workbook
if i was writing this in english it would read something like this:

ActiveChart.Axes(xlValue).MinimumScale = Activesheet.Cell. EU2
ActiveChart.Axes(xlValue).MaximumScale =Activesheet.Cell. Ev2
(This however doesnt work)

Sub Macro16()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = 5
    ActiveChart.Axes(xlValue).MaximumScale = 7
End Sub

Please would someone help me as I very stuck on this at the moment

Thanks

Tony

 

[njimack]

Maybe something like this:

Sub Macro16()

Dim Min_Scale, Max_Scale


With ActiveSheet
    Min_Scale = .Range("EU2")
    Max_Scale = .Range("EV2")


    .ChartObjects("Chart 1").Activate
    
    ActiveChart.Axes(xlValue).MinimumScale = Min_Scale
    ActiveChart.Axes(xlValue).MaximumScale = Max_Scale
End With
End Sub

 

[tonywatsonhelp]

Hi njmack,
works great thank you very much

Tony