Thank you for your reply. This tool is a great help. I was also able to find this
Option Explicit
Sub LastPointLabel()
Dim mySrs As series
Dim nPts As Long
For Each mySrs In ActiveChart.SeriesCollection
With mySrs
nPts = .Points.Count
mySrs.Points(nPts).ApplyDataLabels _
Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False
mySrs.Points(nPts).DataLabel.Text = mySrs.Name
End With
Next
End Sub
Since the points in my chart are of different series, I wanted to show the series name all at once if the chart is updated. I'll try to incorporate this in my code for creating XYScatter Chart.
Thank you again for your help.
Bookmarks