Moving a chart to another location on the sheet when name not known

[FryGirl]

I'm running the Data Analysis ToolPak and having one of the chart options created. I now would like to move that chart to a specific cell. This works fine when I know the name of the chart, but I won't know the name as it is generated thru the Data Analysis ToolPak.

Sub MoveChart()
    Sheet1.Shapes("Chart 47").Left = Sheet1.Cells(24, 8).Left
    Sheet1.Shapes("Chart 47").Top = Sheet1.Cells(24, 8).Top
End Sub

It will be the only shape on the sheet.

 

[jolivanes]

ActiveSheet.ChartObjects(1).Activate

 

[FryGirl]

Thank you. This will work great.