Edit all data labels in an Excel graph to show series name

showseriesdatalabels.vba

Sub datalabels()
    
    For Each myChart In ActiveSheet.ChartObjects
        For Each mySrs In myChart.chart.SeriesCollection
            With mySrs
                If Not .HasDataLabels Then
                    .ApplyDataLabels
                End If

                .datalabels.ShowSeriesName = True
                .datalabels.ShowValue = False

            End With
        Next mySrs
    Next myChart

End Sub