Copying a chart in 2010

[The Dow Jones]

I have multiple tabs in the same format. If I create a chart in one tab, how can I copy it to multiple tabs with the chart source data using the destination. When I copy the chart, when I get to the new tab, it still links to the first one. As I have over 100 tabs, is there an easy way to do this?

 

[Worf]

Hi
You could use something like this:

Sub CopyChart()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets  ' all sheets
    If sh.Name <> "Sheet1" Then         ' source sheet
        Sheets("Sheet1").ChartObjects("Chart 7").Activate   ' template
        ActiveChart.ChartArea.Copy
        sh.Paste
        sh.ChartObjects(sh.ChartObjects.Count).Activate
        ActiveChart.SeriesCollection(1).Values = sh.Range("b30:b34")
        ActiveChart.SeriesCollection(2).Values = sh.Range("c30:c34")
    End If
Next
       
End Sub