VBA name new series based on variable

[dlbob]

Hello,

I'd like to add series to a chart on a new sheet. The name and range is based on r, however the range works fine, but the name gives an error.
I tried setting the name as a Range variable and as string as well, but no luck so far...

Any tips?

For r = 1 To 8
.SeriesCollection.NewSeries
.SeriesCollection(r).Name = Worksheets("Sheet 1").Range(Cells(17, r + 1))
.SeriesCollection(r).XValues = rng(1)
.SeriesCollection(r).Values = rng(r + 1)
Next r


Thanks!

 

[dlbob]

Found a solution:

Dim ws As Worksheet

Worksheets("Sheet 1").Select
Set ws = ActiveWorkbook.Worksheets("Sheet 1")

For r = 1 To 8
.SeriesCollection.NewSeries
.SeriesCollection(r).Name = ws.Cells(17, r + 1)

Found explanation here:
https://stackoverflow.com/questions/17733541/why-does-range-work-but-not-cells