Public Sub convierteCadaHojaEnUnLibroNuevo()
    
    Dim hoja As Worksheet
    Dim ruta As String
    
    ruta = ThisWorkbook.Path
    Application.ScreenUpdating = False
       
    For Each hoja In Application.ThisWorkbook.Worksheets
        
        hoja.Copy
        
        On Error Resume Next
        
        ActiveWorkbook.SaveAs Filename:=ruta & "/" & hoja.Name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWindow.Close
        
    Next
End Sub