Option Explicit Public Sub AddChartSheet() Dim aChart As Chart Set aChart = Charts.Add With aChart .Name = "Mangoes" .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("Sheet1").Range("A3:D7"), PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = "=Sheet1!R3C1" End With End Sub