Excel VBA labelndo una segunda serie de datos

He creado una plantilla de tendencias de charts múltiples que se actualiza dinámicamente utilizando la function de compensación en function de la input del usuario.

He podido labelr la primera serie de datos con un nombre definido que usa la function de desplazamiento, pero no he podido labelr la segunda serie de datos de la misma manera …

Entonces INDEX (nombre, 1) funciona para extraer la parte relevante de la matriz dentro de una celda …

¿Hay alguna manera de crear dinámicamente una cantidad de cuadros de text y vincularlos a celdas con nombre? Posiblemente algo como esto? Adjuntar un textbox a un punto o línea en un gráfico en Excel / VBA

El siguiente código funciona pero solo con el set de nombres definidos en un worksheert. ¿Hay alguna manera de modificar esto para múltiples diagtwigs, usando celdas con nombre en diferentes hojas de trabajo?

Sub Add_Text_to_point() Dim objCht As ChartObject Dim ws As Worksheet ' loop through sheets in this workbook For Each ws In ThisWorkbook.Worksheets ' loop through Chartobjects in sheet For Each objCht In ws.ChartObjects ' no need to select the chart or the series use With statement instead With objCht.Chart.SeriesCollection(5).Points(1) .DataLabel.Text = [Point1] End With With objCht.Chart.SeriesCollection(5).Points(2) .DataLabel.Text = [Point2] End With With objCht.Chart.SeriesCollection(5).Points(3) .DataLabel.Text = [Point3] End With With objCht.Chart.SeriesCollection(5).Points(4) .DataLabel.Text = [Point4] End With With objCht.Chart.SeriesCollection(5).Points(5) .DataLabel.Text = [Point5] End With With objCht.Chart.SeriesCollection(5).Points(6) .DataLabel.Text = [Point6] End With With objCht.Chart.SeriesCollection(5).Points(7) .DataLabel.Text = [Point7] End With With objCht.Chart.SeriesCollection(5).Points(8) .DataLabel.Text = [Point8] End With With objCht.Chart.SeriesCollection(5).Points(9) .DataLabel.Text = [Point9] End With With objCht.Chart.SeriesCollection(5).Points(10) .DataLabel.Text = [Point10] End With Next objCht Next ws