Duplicate Method Example
This example duplicates embedded chart one on Sheet1 and then selects the copy.
Set dChart = Worksheets("Sheet1").ChartObjects(1).Duplicate dChart.Select