Are you sure your chart has a legend,

If ActiveChart.HasLegend Then

Regards,
Peter T

The following code applied to an embedded chart in a chartsheet fails with
error message 'Unable to get the Legendentries property of the
Legendclass'.
Error # 1004.

For Each le In ActiveChart.Legend.LegendEntries
le.LegendKey.Border.LineStyle = xlNone
Next

Any idea why?