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

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


Dr.Schwartz wrote:
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


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html