seriescollection

wie kann ich den die untenstehende prozedur so verändern, dass sie die aktuell ausgewählte serie verwendet? (und nicht eine vordefinierte: seriescollection(1))

ein herzlicher dank

kerbi

auszug:

Dim counter As Integer
For counter = 1 To rng.Rows.Count

With .SeriesCollection(1).Points(counter)
.HasDataLabel = True
.DataLabel.Text = rng.Cells(counter)

End With
Next counter