Necesito mover varias hojas a un nuevo libro

[Tannya]

¡Hola!

Tengo la siguiente inquietud:

Necesito mover de un libro de excel, desde la hoja 3 hasta la última hoja a un nuevo libro (el libro hay que crearlo).

El nuevo libro se debe llamar "STOCK".

Es importante mencionar que la cantidad total de hojas varía, pero siempre son más de 100. Entonces, lo que necesito es que desde la hoja 3 hasta la hoja N, se muevan a un nuevo libro que se llamará "STOCK".

Desde ya agradezco cualquier aporte o sugerencia que me puedan brindar al respecto.

 

[Antoni]

1. Haz una copia del archivo.
2. Cambiale el nombre
3. Elimina las hojas 1 y 2

 

[Tannya]

Estimado Antoni:

Gracias por responder. Lamentablemente no puedo realizar la sugerencia realizada. Porque el requerimiento expuesto es solo una parte de una macro que estoy realizando.

La macro después de mover las hojas mencionada, seguirá realizando otro proceso que requiere de ese paso de manera previa.

 

[Antoni]

Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\STOCK.xlsm"
Workbooks.Open ThisWorkbook.Path & "\STOCK.xlsm" 'Abre la copia
With ActiveWorkbook
   .Sheets(2).Delete
   .Sheets(1).Delete
   .Save  '<-- Guarda la copia después de eliminar las hojas
   .Close '<-- Cierra la copia después de guardarla
End With