You could begin with the following code. It doesn't do exactly what you
want, but should point you in the right direction.
Sub MoveSheets()
Dim SheetsToMove(1 To 3)
Dim WorkbookToMoveSheetsTo As Workbook
SheetsToMove(1) = "Sheet1"
SheetsToMove(2) = "Sheet3"
SheetsToMove(3) = "Sheet5"
Set WorkbookToMoveSheetsTo = Workbooks("Book3.xls")
With WorkbookToMoveSheetsTo.Worksheets
Worksheets(SheetsToMove).Move after:=.Item(.Count)
End With
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)