The names are the x values of the series Try this Dim varValues As Variant Dim strName As String varValues = ActiveChartSeriesCollection(1)XValues strName = varValues(1)So instead of =SERIES("025 ID",'New3'!$F$11$F$16,'New3'!$V$11$V$16,1) Your series formula becomes =SERIES('New3'!$X$1,'New3'!$F$11$F$16,'New3'!$V$11$V$16,1) The following sample code uses the SeriesNameLevel property to set the chart series names from previously created columns VB Sheets (1)Range ("C1E1")Value2 = "Sample_Row1" Sheets (1)Range ("C2E2")Value2 = "Sample_Row2" Sheets (1)Range ("A3A5")Value2 = "Sample_ColA" Sheets (1)Range ("B5")Value2 = "Sample_ColB" Sheets (1)Range ("C3E5")Formula = "=row ()" Dim crt As Chart Set crt = Sheets (1)ChartObjectsAdd (0, 0, 500, 0)Chart crtSetSourceData Sheets
Excelmadeeasy Vba Change Marker Size And Color In Excel
