Como muevo varios worksheets a un nuevo libro con una macro?

Necesito que se muevan varias hojas de un libro de excel a la vez a un libro nuevo con una macro. ¿Alguna idea?