Poner nombre a hojas de un libro por VBA

hola, José Rafael !

Necesitaria un sencillo codigo para crear hojas de un mismo libro con los nombres que figuren en la columna A:A.

Sub Hoja_por_celda()
Application.ScreenUpdating = False
Dim Fila As Integer
With ActiveSheet
For Fila = 2 To .Range("a65536").End(xlUp).Row
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = .Range("a" & Fila)
Next
.Select
End With
End Sub

saludos,
hector.

Buenas tardes:
Rápido, eficaz, etc. como siempre ayudandonos a los que te necesitamos...
Gracias una vez mas apreciado Héctor.
Saludos

José Rafael desde Valencia (España)


"Héctor Miguel" escribió en el mensaje
news:%

hola, José Rafael !

Necesitaria un sencillo codigo para crear hojas de un mismo libro con los
nombres que figuren en la columna A:A.

Sub Hoja_por_celda()
Application.ScreenUpdating = False
Dim Fila As Integer
With ActiveSheet
For Fila = 2 To .Range("a65536").End(xlUp).Row
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = .Range("a"
& Fila)
Next
.Select
End With
End Sub

saludos,
hector.