1004 Excel Cannot Paste Data (Pictures) To Workbook

[Frenzyy]

Hey All,

Would you be so kind please and help me figure out why the below code only works from time to time but more often than not throws the 1004 error?
All I'm trying to do is copy charts without links from one workbook to another.

Sheets.Add(After:=Sheets(name1)).Name = charts
    wb.Worksheets(charts).Activate
    Cells.Copy
    wb2.Worksheets(charts).Activate
    ActiveSheet.Pictures.Paste.Select

Please kindly note a similar version of this question has also been posted here: Copy Charts to new Workbook and Un-link Chart Data

Many thanks!

 

[Yongle]

Try adding these 2 lines

    Sheets.Add(After:=Sheets(name1)).Name = charts
wb.Activate
    wb.Worksheets(charts).Activate
    Cells.Copy
wb2.Activate
    wb2.Worksheets(charts).Activate
    ActiveSheet.Pictures.Paste.Select

It helps if you tell us which line your code fails on
wb.Activate is probably unnecessary but will do no harm!

 

[Frenzyy]

Hi, thanks for your reply. I actually managed to go around this issue by copying over the tab and breaking the links. Similarly to what was done here: Break All External Links In Your Excel Workbook — The Spreadsheet Guru