Getting the Displayed Name of a Chart Point.

The following tells me that the name of the point is "S1P1" however the label on the chart says "Widget A." What do I have to use instead of .Name to get "Widget A?" Obviously this code is the start of something bigger.

Sub ListChart()
Dim sh As Worksheet
Dim chrt As ChartObject

Set sh = Sheets("Sheet1")
For Each chrt In sh.ChartObjects
    chrt.Activate
    MsgBox ActiveChart.FullSeriesCollection(1).Points(1).Name
Next

End Sub

If I understand what you are trying to do, don't we need to go through the "datalabel" object to get the text of a data label? Or are you talking about a series that does not have data labels?
https://msdn.microsoft.com/en-us/lib.../ff838393.aspx

I knew that as soon as I posted the question, I'd find the answer. Here it is:

http://answers.microsoft.com/en-us/m...acf0e70?auth=1