Greetings,
1- Open enclosed file.
2- Run Macro1.
3- See that there is a chart on the Sheet1.![]()
Sub Macro1() Sheets("Sheet1").Select Range("A1:A28").Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$A$28") End Sub
4- Look at "question sheet" in order to understand my question.
Regards.
Bookmarks