Como Copiar con VBA-Excel el contenido del objeto ThisWorkbook al objeto ThisWorkbook de otro libro.

Buenas tardes a todos, quisiera saber si existe alguna forma de copiar el contenido del objeto ThisWorkbook ( con todo y sub's ) de un libro Excel al objeto ThisWorkbook de otro libro Excel que ya existe. Lo he intentado con VBA copiando a una cadena el código del libro origen y de ahí al nuevo libro pero me da un error de automation, este no sucede si lo copio a un Module. Les agradecería algún ejemplo de código VB que tuvieran por ahi.

Saludos,