Hi,

Could you please help me with the code for copying charts and pasting them as enhanced metafile to another sheet. Programme diplays 1004 error. Could the problem be here:
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False

Thanks for suggestions.

Sub createTables()
Workbooks("AAA.xlsm").Worksheets("AA").Activate
    For i = 1 To 3
Workbooks("AAA.xlsm").Worksheets("AA").Activate
Workbooks("AAA.xlsm").Worksheets("AA").Range("A3").Value = i
Workbooks("AAA.xlsm").Worksheets("AA").Calculate
Workbooks("AAA.xlsm").Worksheets("AA").ChartObjects("Chart 1").CopyPicture Appearance:=xlScreen, Format:=xlPicture
        
Workbooks("BBB.xlsx").Worksheets(i).Activate
Workbooks("BBB.xlsx").Worksheets(i).Range("B2").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False

    Next i
End Sub