How to paste chart format in vba excel2010

[avi]

Hello,

I try using John Mansfield's code, but in Excel2010, all the template chart seems to be copied (series are added) . Please advise

Sub Copy_Chart_Formats()
Dim Sht As Worksheet
Dim Cht As ChartObject
Application.ScreenUpdating = False
ActiveChart.ChartArea.Copy
For Each Sht In ActiveWorkbook.Worksheets
For Each Cht In Sht.ChartObjects
Cht.Chart.Paste Type:=xlFormats
Next Cht
Next Sht
Application.ScreenUpdating = True
End Sub

Thanks
Avi