How to include a chart title in a Macro

[danfullwood]

Hello,

I have created a macro which is shown below which creates a graph. However, i need the chart to include a chart title automatically inside the macro.

Doe anyone know how to do this?

Sub create_Graph_Title()
'
' create_Graph_Title Macro
'

'
    Range("B2:D12").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Range("Graphs!$B$2:$D$12")
    EChart.Chart
End Sub

I want the chart title to be "Total Un-sourced parts per SCU"


Thank you!