Crear Hojas

Buenas tardes,

Tengo un código de VBA que lista todas las hojas que tiene un libro, en la
hoja1, a partir de la celda A1.

He intentado hacer lo contrario, pero no lo consigo, es decir, tengo nombres
de hojas a partir de la celda A1 (verticalemtne) y desearía que con una macro
se crearan la cantidad de hojas correspondiente, y que cada hoja tome como
nombre el dato que está en la lista. Los datos son texto.

Espero que algún miembro del foro me pueda ayudar.

Saludos,

Oszkar M^
Sevilla - España