Chart.ChartTitle procedure builder

Chart.ChartTitle (Excel)

Returns a ChartTitle object that represents the title of the specified chart.

With Charts("Chart1") 
 .HasTitle = True 
 .ChartTitle.Text = "First Quarter Sales" 
End With