Hi,

I'm trying to copy several charts from the same sheet ans paste them in
another workbook. what i have is this:

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 run the macro, it seems that it only copies the first chart and it bugs
when tries to paste.

thank's on any help