Jorge
Si entiendo tu pregunta correctamente, esto se hace atravez de un inputbox.
Por ejemplo si quisiera preguntar la edad del usuario haria esto:
Sub prueba ()
dim edad as string
edad=inputbox("Entre la edad del usuario", "edad")
end sub
No te olvides de luego hacer algo con lo que haya entrado el usuario. Es decir si quieres que la edad este en la celda a1, pondrias: range("a1").value = edad
Espero que eso haya sido tu pregunta. Suerte