Nombres de hojas automaticos

hola, Silvia !

... tengo un fichero txt con 20 nombres, me gustaria:
a) que al abrir un libro nuevo se creara veinte hojas y qe cuyos nombres fuesen los del txt.
b) que desde A1 a S1, apareciera los nombres de esas hojas.
No se si la parte a) se puede hacer de alguna forma automatica, les dejo el formato de txt que tengo
nombre1
nombre2
nombre3
etc

- ten preparado un libro de excel (p.e. con solo una hoja)
- copia/pega las siguientes lineas en un modulo de codigo estandar
- modifica la ruta correcta a donde guardas tu fichero *.txt
- corre la macro (estando activa la hoja 1) y...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Crear_hojas()
Dim n As Byte, h As Byte
Application.ScreenUpdating = False
With ActiveSheet
Workbooks.OpenText _
"c:\documents and settings\<usuario>\mis documentosombres.txt"
n = Range([a1], [a65536].End(xlUp)).Rows.Count
.[a1].Resize(, n).Value = _
Application.Transpose(Range([a1], [a65536].End(xlUp)).Value)
ActiveWorkbook.Close False
For h = 1 To n
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = .Cells(1, h)
Next
.Select
Cells.EntireColumn.AutoFit
End With
End Sub