Hallo,

I have the following but get an err msg - I first copy a pivot and a linked to it chart from wsh PATTERN and later try to relink on the new sheet NAM the charts to the pivot.


Can anyone help please?


Sub CopyPattern()

' COPY THE PATTERN

Worksheets("Pattern").Range("A1:Z50").Copy Destination:=Worksheets("NAM").Range("A1:Z50")


With Sheets("NAM")
Chart1.SetSourceData Source:=Worksheets("NAM").Range("H5:M5" & "H7:M8"), PlotBy:=xlColumns

End With

End Sub