Chart identification

D

Dr.Schwartz

Tod was kind enough to supply me with this piece of code:

With ActiveSheet.ChartObjects("Chart 1")
.Activate
.Top = Range("C3").Top
.Left = Range("C3").Left
End With

Which enables me to move Chart 1 to cell C3. I need to correct this so that
I can move an already activated chart regardless of the chart id.

Thanks
The Doctor
 
D

Debra Dalgleish

With ActiveChart.Parent
.Top = Range("C3").Top
.Left = Range("C3").Left
End With
 
Top