Pegar varias hojas a la vez

hola Gerardo,

a) una posibilidad, si no te importa que se pegue absolutamente todo,
podria ser =>>>

seleccionar todas las hojas (ctrl pulsado y click en la pestaña de
cada hoja), y una vez seleccionadas click secundario sobre alguna de
dichas pestañas => Mover o copiar => en el cuadro 'Al libro'
seleccionas el libro de destino => Eliges la posicion si quieres en el
siguiente cuadro => seleccionas 'Crear una copia' => aceptas

en teoria te las habra copiado, incluyendo hasta configuracion de
impresio, pagina etc

b) si lo quieres por codigo podrias hacer algo parecido a (ahora mismo
no estoy seguro si me faltaria algo pero mirando la ayuda seguro que
no tendrias problemas)=>>

'' poniendolo en un modulo normal del libro de origen (puedes
cambiarlo un poco si lo prefieres en el libro de destino)

sub copiar()
Dim hj as worksheet
For each hj in thisworkbook.worksheets
hj.copy workbooks("destino.xls")
next
end sub

un saludo
Ivan