Sub Test1() Dim DataRange As range Set DataRange = ActiveSheet.range("A1:A2") ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values = DataRange End Sub