Chart.Legend (Excel)

Returns a Legend object that represents the legend for the chart.

Charts("Chart1").HasLegend = True 
Charts("Chart1").Legend.Font.ColorIndex = 5