Hi Rasm,

I have modified my code little bit.

You command code would be

Code:
Dim Chart_Object As ChartObject
Set Chart_Object = ActiveSheet.ChartObjects(1)
Call GetChartData(Chart_Object)
Use the above modified code.