Untested, but you might want to try it without all the Select stuff:

Workbooks(DOS_current_file_name).Sheets("Graphs") _
.Shapes.Range(Array("Chart 9", "Chart 10", "Chart 13", _
"Chart 14", "Chart 15", "Chart 16")).Copy

--

Vasant


"Wayno" wrote in message
...
I have been recently upgraded to MS XP and Excel 2002,
and now have an existing macro that fails me. It is
supposed to select 6 charts from the "Graphs" spreadsheet
but it stalls at this selection step. (Same thing
happening in my other files with a similar selection).
Is there a change needed in this command? Thanks for
your help.

Windows(DOS_current_file_name).Activate
Sheets("Graphs").Select
ActiveSheet.Shapes.Range(Array("Chart 9", "Chart 10",
_
"Chart 13", "Chart 14", "Chart 15", "Chart
16")).Select
Selection.Copy

Wayne