Sub AddChartSheet() Dim myChart As Chart Set myChart = Charts.add With myChart .SetSourceData Source:=Sheets("Sheet1").range("A3:D7"), _ PlotBy:=xlRows .ChartType = xlColumnClustered .HasTitle = True .ChartTitle.text = "Mangoes" End With End Sub