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