Crear archivo en Excel por cada hoja que contiene el libro.

Seguimos los siguientes pasos:

Creamos un módulo en VBA:

Pegamos el código y ejecutamos la siguiente macro:

Sub Generar_archivos_desde_hojas()

'creamos un bucle desde la hoja 1 hasta la ultima

For i = 1 To Sheets.Count

'cada libro creado solo debe tener una hoja

 Application.SheetsInNewWorkbook = 1

On Error Resume Next

'seleccionamos la hoja activa

Sheets(i).Select

'copiamos todo

    Cells.Copy

    'llamaremos al libro con el nombre de la hoja

    nombre_hoja = ActiveSheet.Name

          'agregamos un libro nuevo

        Workbooks.Add

   'pegamos lo copiado

    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    ActiveSheet.Paste

        Application.DisplayAlerts = False

        'guardamos este nuevo archivo con el nombre de la hoja en la misma ruta donde esta este archivo

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nombre_hoja, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False

'cerramos el libro

ActiveWorkbook.Close False

  Application.DisplayAlerts = True

Next i

'mensaje al finalizar

MsgBox "Se ha creado " & i - 1 & " archivos", vbInformation, "Aviso - Excel Consultor"

End Sub

**