Hi Charles,

Following appears to work in xl2007.

Note: oSerColor As Long not string

Dim myChrt As Chart
Set myChrt = ActiveChart
Dim oSer As Series
Dim dlabel As DataLabel
Dim oSerColor As Long

For Each oSer In myChrt.SeriesCollection
oSerColor = oSer.Border.Color
oSer.HasDataLabels = True
For Each dlabel In oSer.DataLabels
dlabel.Font.Color = oSerColor
Next dlabel
Next oSer

--
Regards,

OssieMac