Input Box

[darkblueblood]

I have the following code that requires the user to input a number between 1 and 3. When the users clicks 'Cancel', the box stays open, until a valid number is entered. How would I adapt this, to allow the user to click cancel and return the cursor to the same cell it was in? Furthermore, how would I be able to adapt it to perhaps display a message box if the user entered an invalid number, and then return the user to the input box?

The code is:

Again:
cods = InputBox("How many attempts did this take?", "Attempts")
'Check valid number
If Not IsNumeric(Val(cods)) Then GoTo Again
If Not Val(cods) > 0 Then GoTo Again
If Not Val(cods) < 4 Then GoTo Again

Thanks in advance

[AndyLitch]

You can dimension cods as a variant ten use something like :-

Please Login or Register  to view this content.

[darkblueblood]

You can dimension cods as a variant ten use something like :-

Please Login or Register  to view this content.

Thanks for your reply, however that doesn't seem to work either. Just keeps prompting for an input as before

[AndyLitch]

Sorry 'bout that... .. Try this

Please Login or Register  to view this content.

[darkblueblood]

Sorry 'bout that... .. Try this

Please Login or Register  to view this content.

thanks for that