Copiar hojas de un libro a otro

[Aretradeser]

Buenas noches,
Quiero copiar todas las hojas de un libro a otro, para lo cual utilizo la siguiente macro:

Sub CopiarHojas()
   Dim x As Integer

   For x = 1 To...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub CopiarHojas()   
   Dim x As Integer
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   
   For x = Workbooks("Libro1.xls").Sheets.Count To 1 Step -1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Aretradeser]

Gracias Antoni, perfecto.