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.