Excel VBA: Problem with copying an embedded chart from one worksheet to another

[Flystar]

I want to copy an embedded chart from one worksheet to another workshee
in a different workbook and maintain the pasted chart focus. My cod
snipit:

'The chart I am copying from is called Total Amounts
ActiveChart.Parent.Name = "Total Amounts"
ActiveChart.ChartArea.Copy 'Copy the chart

'I delete any existing charts on the destination worksheet
Dim nChart As Integer

For nChart = 1 T
Workbooks("TotalsBook").Worksheets("A-F").ChartObjects.Count
If Workbooks("TotalsBook").Worksheets("A-F").ChartObjects(nChart).Nam
= "Total Amounts" Then
Workbooks("TotalsBook").Worksheets("A-F").ChartObjects(nChart).Delete
Exit For
End If
Next nChart

'I paste the chart on the new worksheet
Workbooks("TotalsBook").Worksheets("A-F").Paste

The problem is, the chart name for the pasted chart is not Tota
Amounts but the default chart name. I want to be able to select th
chart so I can reposition and resize etc, but I can't reference it. Th
destination workbook Workbooks("TotalsBook").Worksheets("A-F") contain
many charts, so I can't just select chart 1. Can I copy the sourc
chart and paste it in the new workbook and maintain the chart name?

Thank you in advance for any input given on this topic

 

[yogendra joshi]

Sub test()
ActiveChart.Parent.Name = "Total Amounts"
ActiveChart.ChartArea.Copy 'Copy the chart
cur_cnt = Sheets(2).ChartObjects.Count 'count existing charts in sheet
where you want to paste
Sheets(2).Paste ' paste
Sheets(2).ChartObjects(cur_cnt + 1).Select ' select the newly added chart
ActiveChart.Parent.Name = "Total Amounts" 'rename or do anyother thing
End Sub

 

[Flystar]

So simple, but so effective. Cheers! ;