Excel - crear hojas

Estimados usuarios:

Tengo lo siguiente:

codigo
1a
2b
3c
4r
etc.

quisiera saber como hacer para que se creen hojas automaticamente con el nombre de c/u de los codigos que estan en la celda.

Gracias

Sub Insertar()

Dim hoja As String, nombre As String
hoja = ActiveSheet.Name
[a1].Select
Do While ActiveCell <> ""
nombre = ActiveCell
Sheets.Add
ActiveSheet.Name = nombre
Sheets(hoja).Select
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Abraham