Try this..to select and copy sheets to a new workbook

Sheets.Select
ActiveWindow.SelectedSheets.Copy

If you want to specify the workbook please use the below code

ActiveWindow.SelectedSheets.Copy.Copy
Befo=Workbooks("Workbooktocopy").Sheets(1)

If this post helps click Yes
---------------
Jacob Skaria


"George from Central Trains Birmingham UK" wrote:

Hi

Can anyone help with an Excel 2002 problem ?

I am trying to get a workbook which usually has 500+ worksheets to
automatically move groups of sheets to other workbooks when required for
archiving etc

The only way I have managed this in VBA is by moving one sheet at a time
within a do....loop which is a bit inefficient and does not make good viewing
for the user

The help pages do not list any way of moving even 2 pages at the same time
using VBA

Thanks in anticipation

George