George was right, you need to remove the parentheses from both lines of code.
But as well as that, in your .Name line, you are missing an apostrophe
between = and Sheet1.

" wrote:

On Oct 19, 2:21 pm, "George Nicholson"
wrote:
Try taking out the parentheses (if it works, do the same thing on the next
line)

ActiveChart.SeriesCollection(i).Values = "='Sheet1'!R" & j & "C1:R" & k &
"C1"

HTH,

wrote in message

ps.com...



Error:
Unable to set the value propoerty of the series class

Please help me fix this error? Thanks

The code I use is

sub chart ()

Charts.Add

ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("A45:F63000"), PlotBy:= _
xlColumns

For i = 1 To 10
j = ((i - 1) * 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"

Next- Hide quoted text -

- Show quoted text -

George, It doesnt work :(