Unfortunately i can not use saveas in my project since it is a workaround
for another problem ...

"Mike Fogleman" wrote in message
...
Olaf if the 2 books are to be identical, why not use SaveAs?

Activeworkbook.SaveAs FileName: = "C:/My Documents/My Stuff/Copy2.xls"

Mike F
"Olof Carlsson" wrote in message
...
Hi!

I want to copy an entire workbook to a new workbook by using:

sourceWorkBook.sheets(arr).Copy After:=NewBook.sheets(3)

where arr is an array of worksheet-names, this works fine with one
exception - the formatting does not seem to be copied along with the
content.

How can I achive this?