Sub Test2() Dim DataRange As range Set DataRange = Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).Values End Sub