Hi Sibilia,

It looks like your chart is active when you try to call the ActiveSheet
method. This will cause the error because a chart sheet doesn't have any
cells. Try modifying your code like so:

With Sheets("Incidence")
.ChartObjects("Chart 32").Chart.SeriesCollection(1).XValues = _
.Range(.Cells(StartLine, "W"), .Cells(EndLine, "W"))
End With

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm

"Sibilia" wrote in
message ...

Hi all,

I have a chart with time period on axis. I want the user of this chart
to be able to change this time period via a button.
here is the beginning of the macro link to the button. the macro bugs
when I want the series to be defined depending on the calculated row
numbers of the series (in bold in the macro).
The error message is "Method Cells of object '_global' failed"

Do anyone have a solution for this problem ?
Many thanks

Sibilia

Sub Axis_Graph()
Dim startYear As Integer
Dim EndYear As Integer
Dim startYear2 As Integer
Dim EndYear2 As Integer
Dim StartLine As Integer
Dim EndLine As Integer

startYear = 1950 ' default value
EndYear = 2050 ' default value
startYear2 = Sheets("Incidence").Range("H9").Value ' choose by the
user
EndYear2 = Sheets("Incidence").Range("J9").Value ' choose by the user

StartLine = 3 + (startYear2 - startYear) 'Calculte the row number
where is the StartYear2

EndLine = 103 - (EndYear2 - EndYear) 'Calculte the row number where is
the EndYear2

Sheets("Incidence").Activate
ActiveSheet.ChartObjects("Chart 32").Activate
*ActiveChart.SeriesCollection(1).XValues =
ActiveSheet.Range(Cells(StartLine, "W"), Cells(EndLine, "W"))
'ActiveSheet.Range("W3:W103")*
....


--
Sibilia
------------------------------------------------------------------------
Sibilia's Profile:
http://www.excelforum.com/member.php...o&userid=21363
View this thread: http://www.excelforum.com/showthread...hreadid=383839