Add multiple series to graph using VBA

OK, I am trying to automatically add some data series to a chart using VBA. The data is found in range W148:AC158. Here is the code I have so far, but for some reason I am getting an Application-defined or object defined error on the line that has

Code:

---

.SeriesCollection(i).Name = Worksheets("Inputs").Cells(n, 23).Text

---

Here is my complete code:

Code:

---

Dim n As IntegerDim i As Integer


n = 148
    With ActiveChart
     
        For i = .SeriesCollection.Count To 11 Step 1
            If Sheets("Inputs").Cells(n, 25) = 0 Then
            Else
            .SeriesCollection.NewSeries
            .SeriesCollection(i).Name = Worksheets("Inputs").Range(Cells(n, 23)).Text
            .SeriesCollection(i).XValues = Worksheets("Inputs").Range(Cells(n, 28), Cells(n, 29)).Value
            .SeriesCollection(i).Values = Worksheets("Inputs").Range(Cells(n, 26), Cells(n, 27)).Value
            End If
        n = n + 1
        Next i
       
    End With

---

Any thoughts?

Could you remove range()? as cells() already gives the cell reference.

I'm not convinced you need .text but I have left it in.

Quote:

---

Dim n As IntegerDim i As Integer


n = 148
With ActiveChart

For i = .SeriesCollection.Count To 11 Step 1
If Sheets("Inputs").Cells(n, 25) = 0 Then
Else
.SeriesCollection.NewSeries
.SeriesCollection(i).Name = Worksheets("Inputs").Cells(n, 23).Text
.SeriesCollection(i).XValues = Worksheets("Inputs").Range(Cells(n, 28), Cells(n, 29)).Value
.SeriesCollection(i).Values = Worksheets("Inputs").Range(Cells(n, 26), Cells(n, 27)).Value
End If
n = n + 1
Next i

End With

---

Not a quote.. wasn't displaying the code correctly