Macrsos 4 ejecicico 10

Dim Indice

Indice = InputBox("Ingrese un número entre 1 y 10")

Select Case Indice

Case 1 To 4

    MsgBox ("Entre 1 y 4")

Case 5, 7, 9

    MsgBox ("Entre 5 y 9, pero no 6 ni 8")

Case 6

    MsgBox ("Es un número igual a 6")

Case Else

    MsgBox ("Es un número 8 ó  10")

End Select

Después de ingresar el código a la macros te aparece un recuadro el cual te dice que solo debemos ingresar un numero cuya secuencia lo indica de 1 al 10, después de ingresarlo te te arroja un MSGBOX que dice que ese numero esta en la secuencia de 1a 4