Excel - MACRO QUE COPIA Y GUARDA UN LIBRO EN EXCEL CON LAS HOJAS QUE REQUIERA.

Sub CopiarHojas()

'Por.Dante Amor

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    '

    'Carpeta específica

    ruta = "D:\INFORMACION\Desktop\Empresas\"

    '

    'Escribir hojas

    Sheets(Array( _

        "General-Resultado", "Análisis Vertical", _

        "Análisis Horizontal", "Gráficos-Análisis", "Datos-Ratios", _

        "Interpretación", "Recomendaciones", "Presentar Informe", _

        "PUC")).Copy

    '

    p = InStrRev(ThisWorkbook.Name, ".")

    arch = Left(ThisWorkbook.Name, p - 1)

    '

    ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    ActiveWorkbook.Close

End Sub