Macro que permita ingresar la edad de una persona através de un inputbox con select case

[meggido]

Necesito de vuestra ayuda para realizar una macro que permita ingresar la edad de una persona a
través de un inputbox y escriba en la celda A1 de una hora si es mayor de edad o no.
Considerar que en este caso sería Select case edad>=18 y los casos serian true y fase.

Soy novato en programar con VB.

No adjunte un archivo, ya que no se como empezar el codigo en VB

Ojala me puedan ayudar 

saludos

meggido

[Mauricio_ODN]

Hola meggido

Te dejo el una prpuesta de como seria el codigó, haces pruebas y lo adaptas a tus necesidades

Saludos!!!

 

Sub Edades()

Edad = Application.InputBox(prompt:="Indique su edad:", Type:=2)

If Edad >= 18 Then
Range("A1").Value = "Mayor de Edad"

Else
Range("A1").Value = "Menor de Edad"

End If

End Sub

[aaquino]

Prueba el adjunto

Saludos.

Edad.xlsm