To change chart default title, set the Text property of the ChartTitle object, which represents the chart title
Sub charTitleText() ActiveChart.ChartTitle.Text = "Industrial Disease in North Dakota" End Sub