Macro para nombrar hojas.

[Gerardo Arevalo]

Hola a todos buen dia.

Tengo una pregunta y un verdadero kilombo espero me puedan ayudar u apoyar, veran tengo una macro que genera varias hojas dentro de un libro lo que me gustaria hacer es que por cada hoja que exista en el libro me haga un libro nuevo, es decir si son 50 hojas dentro del libro, me genere 50 libros nuevos copiado dentro del libro la hoja que le pertenece y que el libro se guarde con el nombre de la hoja.

Estaba empezando con la macro pero la verdad me eh perdido loco!

Sub insert()
 For i = 2 To Sheets.Count
 Sheets(i).Select
    If ActiveSheet.Name <> "PRINCIPAL" Then
       Worksheets.Add

       Else
       End If
       Next
End Sub

[/PHP]

Use la grabadora y me salio esto en la macro:

Sheets("Hoja1").Select

Application.CutCopyMode = False

Sheets("Hoja1").Copy

Pero como automatizar este proceso para cada hoja del libro.??

No se si me explico. Saludos y gracias a todos!!

[Invitado Gengis Khan]

Hola:

Pruebe con esta macro:

Sub Generar()


   For Each Hoja In ActiveWorkbook.Sheets

      Hoja.Copy

      ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Hoja.Name & ".xlsx"

      ActiveWorkbook.Close

   Next



End Sub



[/CODE]

Saludos

[Gerardo Arevalo]

Gracias Gengis Khan la macro me va de maravilla, justo lo que necesitaba.

Doy el TEMA POR CONCLUIDO.

Gracis men!