Formatting Multiple Series In An Excel Chart

Hi
try this

Sub format_labels()
Dim ss As Series
For Each ss In ActiveChart.SeriesCollection
    If ss.HasDataLabels = True Then
        With ss.DataLabels.Font
            .Bold = True
            .Color = RGB(256, 256, 256)
        End With
    End If
Next ss
End Sub