Excel VisualBasic Script

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