Excel VisualBasic Script

Sub charTitleText()
    ActiveChart.ChartTitle.Text = "Industrial Disease in North Dakota"
End Sub