Excel 2002-2003. How do I programmatically merge two or more workbooks. How
do I manually merge two or more workbooks. Thanks for any help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

copy and paste. Select all the sheets in one workbook and do Move or copy
Sheet in the Edit menu. Select a destination in the dropdown and if you
want to copy , click the copy checkmark

With Workbooks("NewBook.xls")
activeworkbook.Sheets.Copy After:=.Sheets(Sheets.count)
End With

--
Regards,
Tom Ogilvy

"Chaplain Doug" wrote in message
...
Excel 2002-2003. How do I programmatically merge two or more workbooks.
How
do I manually merge two or more workbooks. Thanks for any help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

Sorry Tom. May I ask for more detail?

If I have book1 and book2 and I want to merge them into book3, what would
the code look like? Thanks.

"Tom Ogilvy" wrote:

copy and paste. Select all the sheets in one workbook and do Move or copy
Sheet in the Edit menu. Select a destination in the dropdown and if you
want to copy , click the copy checkmark

With Workbooks("NewBook.xls")
activeworkbook.Sheets.Copy After:=.Sheets(Sheets.count)
End With

--
Regards,
Tom Ogilvy

"Chaplain Doug" wrote in message
...
Excel 2002-2003. How do I programmatically merge two or more workbooks.
How
do I manually merge two or more workbooks. Thanks for any help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

Doug, give this a try. You may want to create a loop for each sheet in
the workbook.

For Each WS In ActiveWorkbook.Worksheets
WS.Select
ActiveWindow.SelectedSheets.Copy
After:=Workbooks("Book3.xls").Sheets(Sheets.Count)
End If
Next

HTH--Lonnie

Oops, forgot to take out the end if. I might as well tweak it too.

For Each WS In Workooks("Book1.xls")
WS.Select
ActiveWindow.SelectedSheets.Copy _
After:=Workbooks("Book3.xls").Sheets(Sheets.Count)
Next

Sorry about that--Lonnie M.

With Workbooks("Book3.xls")
workbooks("Book1.xls").sheets.copy After:=.Sheets(.Sheets.count)
workbooks("Book2.xls").sheets.copy After:=.Sheets(.Sheets.count)
End with

--
Regards,
Tom Ogilvy

"Chaplain Doug" wrote in message
...
Sorry Tom. May I ask for more detail?

If I have book1 and book2 and I want to merge them into book3, what would
the code look like? Thanks.

"Tom Ogilvy" wrote:

copy and paste. Select all the sheets in one workbook and do Move or
copy
Sheet in the Edit menu. Select a destination in the dropdown and if you
want to copy , click the copy checkmark

With Workbooks("NewBook.xls")
activeworkbook.Sheets.Copy After:=.Sheets(Sheets.count)
End With

--
Regards,
Tom Ogilvy

"Chaplain Doug" wrote in
message
...
Excel 2002-2003. How do I programmatically merge two or more
workbooks.
How
do I manually merge two or more workbooks. Thanks for any help.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org