Sub CreateChart() Range("C3").Select Selection.CurrentRegion.Select myrange = Selection.Address mysheetname = ActiveSheet.Name ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select Application.CutCopyMode = False ActiveChart.ChartWizard _ Source:=Sheets(mysheetname).Range(myrange), _ Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _ CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _ Title:="", CategoryTitle:="", _ ValueTitle:="", ExtraTitle:=""
Range("A:A").Select
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)