Excel - consulta macro para crear hojas a partir de una lista

necesito ayuda con una macro para mi libro de proyectos, la idea es crear hojas adicionales desde un rango o lista de mi hoja principal.
La macro o scrip dice lo siguiente:
Sub crear_hojas()
Dim Lista As Range
Dim ix As Long

Set Lista = Application.ImputBox(prompt:="señalar rango de la lista", _
Title:="lista de nombres", Type:=8)

Application.ScreenUpdating = False

For ix = Lista.Count To 1 Step -1
Sheets.Add.Name = Lista(ix)
Next ix
Sheets(1).Select


Application.ScreenUpdating = True



End Sub

sin embargo por alguna razón que desconozco no ha funcionado les leo .
Muchas gracias

No se cual es el problema, es posible que se trate en los datos por que a mi me ha funcionado perfectamente.
Bueno funciona bien si cambias Application.ImputBox por Application.InputBox.

Saludos
\\//_