Copiar todas las hojas de un libro a otro libro que tengo en una ruta específica

[pearljam]

Buenas amigos, les traigo otra duda que me está volviendo loco para ver si alguien me puede ayudar.

Estoy intentando copiar todas las hojas de un libro a otro libro que ya tengo con varias formulas. Estoy utilizando este código

Sub Macro5()
ThisWorkbook.Sheets.Copy Before:=Workbooks(“Listado_de_Fondos”).Sheets(1)
End Sub

pero no consigo que me copie las hojas, me tira un error.

El tema es que las hojas que necesito copiar, cada día cambian de nombre y de numero, y necesito seleccionar todas para poder copiarlas de golpe al libro existente y no encuentro la forma de hacerlo.

Si selecciono este código:

Sub Macro5()
ThisWorkbook.Sheets.Copy
End Sub

Me crea un libro nuevo pero yo no quiero hacerlo en un libro nuevo, necesito copiarlo en un libro existente.

Alguien me podría ayudar?

 

Muchas gracias de antemano!!

[Haplox]

Hace 19 horas, pearljam dijo:

Alguien me podría ayudar?

Pues si tu libro de ejemplo va a ser imposible, sin saber la etructura de hojas y qué hojas necesitas copiar. De adivinación, al menos yo, no voy muy sobrado... ?

[Luis Caballero]

Hola, como dice Haplox adivinos no somos pero intenta adaptarlo

Sub Copiatodaslashojas()

Dim  hoja As Worksheet

librodestino="Listado_de_Fondos"

For Each hoja In Worksheets

Sheets(hoja.Name).Copy After:=Workbooks(librodestino).Sheets(1)

Next hoja

End Sub