It probably would help to say *what* error you get, but one apparent
problems is that the SeriesCollection index starts at 1, not 0, so
SeriesCollection(i) will error out when i = 0


In article .com,
wrote:

I get an error when I execute the for loop. Please help me fix the
error.

For i = 0 to 15
j = (i * 524)+46
k = j + 523


ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).XValues = "='Sheet1'!
R46C3:R569C3"

ActiveChart.SeriesCollection(i).Values = "='Sheet1'!R(j)C1:R(k)C1"
' Error here
ActiveChart.SeriesCollection(i).Name = "='Sheet1'!
R(j)C2" 'Error here


Next

Thanks