Data Label for XY Scatter Plot

[AdmiralAJ]

I tried using code that John Mansfield had posted a while back with a
modification and its not working right. I get the following error:
"run-time error '91'" My data is on a worksheet and the chart is on a
chartsheet and I have set the code to run when this chartsheet is
activated. To give you a little more background series 1 & 2 of this
chart are line graphs and series 3 is the xy scatter graph. I was
hoping someone could help me figure out what I'm doing wrong and why
I'm getting the error above. Below is the modified code:

Sub AttachLabelsToPoints()

Dim RngLabels As range
Dim Ser As Series
Dim i As Long

Ser = ActiveChart.SeriesCollection(3) <==== This is where the
debugger stops to highlight my code
Set RngLabels = ActiveWorkbook.Worksheets(1).range("e10:e17")

Ser.HasDataLabels = True

For i = 1 To Ser.Points.Count
Ser.Points(i).DataLabel.Text = RngLabels(i)
Next i

End Sub

Thanks in advance....AJ

 

[PBezucha]

You have simply omitted Set before the definition of your SeriesCollection
object though being certainly aware of it.

Regards

 

[AdmiralAJ]

You have simply omitted Set before the definition of your SeriesCollection
object though being certainly aware of it.

Regards

Thanks! It works now.