Use named range for chart data labels

[ThomasOES]

Hello the code below works to put data labels onto points in a graph. However I would like a named range to replace the msoChartFieldRange

.FullSeriesCollection(1).DataLabels.Format _
        .TextFrame2.TextRange.InsertChartField _
            msoChartFieldRange, "=Al!$A$45:$A$50", 0

Something like

[COLOR=#222222][FONT=Verdana].FullSeriesCollection(1).DataLabels.Format _[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]        .TextFrame2.TextRange = Range("StdList")[/FONT][/COLOR]

I cant get it to work. Any help would be much appreciated.

Tom
​

 

[ThomasOES]

I found a way

With ActiveChart
    .SeriesCollection.NewSeries
    With .FullSeriesCollection(1)
    .XValues = Range("StdCalc")
    .Values = Range("StdVal")
        With .DataLabels
            .Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, _
            "='" & ActiveSheet.Name & "'!" & Range("StdList").Address(0, 0), 0
            .ShowRange = True
        End With
    End With
End With

"StdList is the named range