Macro para mover hojas de un Libro de excel a otro Libro de excel nuevo

[Mariela Vegas]

Hola, que tal?

Quisiera que me ayuden con esta macro, tengo un "Área_Consolidado" que contiene 04 hojas (Área_Uno, Área_Dos, Área_Tres, Tablas), la intención es  que mediante un "click",  pueda "copiar" ciertas hojas a NUEVOS LIBROS de la siguiente manera:

Libro1 con nombre "Área_Uno", debe contener: hojas con nombre Área_Uno y Tablas)

Libro2 con nombre "Área_Dos", debe contener: hojas con nombre Área_Dos y Tablas)

Libro3 con nombre "Área_Tres", debe contener: hojas con nombre Área_Tres y Tablas)

Aclaración: el libro "'Área_Consolidado" no debe alterarse. 

Espero me puedan, ayudar. 

Mariela

[qwerty123]

Hola.

Podrías utilizar algo parecido a esto, modificando las líneas necesarias para que se adapten a tus necesidades: 

Sub Macro1()
Dim wkAct As Workbook
Dim wkNvo As Workbook
Dim wsHoja As Worksheet
Dim iÍnd As Integer

    Set wkAct = ThisWorkbook
    For Each wsHoja In wkAct.Sheets
        If wsHoja.Name <> "Tablas" Then
            iÍnd = iÍnd + 1
            wsHoja.Copy
            Set wkNvo = ActiveWorkbook
            wkAct.Sheets("Tablas").Copy After:=wkNvo.Sheets(1)
            wkNvo.SaveAs "Libro" & iÍnd & ".xlsx"
            wkNvo.Close
        End If
    Next

End Sub

Un saludo.