invalid or unqualified reference error

[shodan]

Hi board,

Can someone tell me why I get following error on this code:

Invalid or unqualified reference when I run following code:

Sub changeaxisscale()

Worksheets("Charts_YTD").ChartObjects("Chart 1").Chart.Axes(xlValue) _
     .MinimumScale = Worksheets("Base").Range("G2").Value
Worksheets("Charts_YTD").ChartObjects("Chart 1").Chart.Axes(xlValue) _
     .MaximumScale = Worksheets("Base").Range("G3").Value


Worksheets("Charts_YTD").ChartObjects("Chart plant").Chart.Axes (xlValue)
     .MinimumScale = Worksheets("Base").Range("P2").Value
Worksheets("Charts_YTD").ChartObjects("Chart plant").Chart.Axes(xlValue) _
     .MaximumScale = Worksheets("Base").Range("P3").Value

End Sub

It happens when it comes to minumscale. Strange thing is that this has always worked before. According to me I only changed worksheet names.

Thanks al lot !!

 

[jeffreybrown]

What I see is on this line...

Worksheets("Charts_YTD").ChartObjects("Chart plant").Chart.Axes (xlValue)
     .MinimumScale = Worksheets("Base").Range("P2").Value

Change to

Worksheets("Charts_YTD").ChartObjects("Chart plant").Chart.Axes(xlValue) [COLOR="Red"]_[/COLOR]    
     .MinimumScale = Worksheets("Base").Range("P2").Value

 

[shodan]

ok, that did it !! thanks

 

[jeffreybrown]

You're welcome and glad it worked for you