Ayuda con Condiciones

[davidaol_007]

buenas, me encargaron de taraea un programilla en excel que realizara sto:
introducir un valor entre 1 y 10, y que no permita letras,
en caso de que algo este mal salga una ventanita diciendo el error.

bueno eso ya lo hize solamente me falta que cuando salga el mensaje mostrando el error y darle aceptar me redirecione al inputbox,
alguien me puede ayudar.




Sub ejemplo()
'
' ejemplo Macro
' ejemplo
'
' Acceso directo: Ctrl+Mayús+U
'

x = InputBox("escribe un numero")

If Not IsNumeric(x) Then
x = MsgBox("Ingresa Solo Numeros", 1 + 48)
End If

If x >= 1 And x <= 10 Then

Range("A1").Select
ActiveCell.FormulaR1C1 = x

Else
x = MsgBox("Escoje un numero entre el 1 y el 10 ", 1 + 48)


End If



End Sub

gracias de antemano