Hi,

I have a large number of points I want to plot on a scatter graph with
named series and I don't want to do this manually. I have tried the
following approach unsuccessfully. I have searched this forum and
previous advice does nto seem to work.

Any help much appreciated.

Thanks,

Will



Dim counter As Integer

counter = 7

Do Until counter = 133

ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(counter).XValues = "=Sheet1!
R(counter)C3"
ActiveChart.SeriesCollection(counter).Values = "=Sheet1!
R(counter)C2"
ActiveChart.SeriesCollection(counter).Name = "=Sheet1!
R(counter)C1"
counter = counter + 1
Loop

End Sub