Hi,

i´m trying to copy a selection of charts from a workbook to another. Here´s
my yet-to-be-over lines:

Windows("BDs.xls").Activate
ActiveSheet.ChartObjects("Chart 11").Activate
ActiveSheet.Shapes.Range(Array("Chart 11", "Chart 12", "Chart 13",
"Chart 14" _
, "Chart 15", "Chart 16")).Select
Selection.Copy
Windows(F).Activate
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False

As i see it, when i run the macro, it only copies the first chart, and then
it bugs when tries to paste.

can anyone help me?
thanks,
Rui