Modifying chart properties: changes the Legend font for all charts on the active sheet.
Sub LegendMod() Dim myChart As ChartObject For Each myChart In ActiveSheet.ChartObjects With myChart.Chart.Legend.font .name = "Calibri" .FontStyle = "Bold" .Size = 12 End With Next myChart End Sub