Dear Seanie

Try this. You can include more validations ....

Sub test01()

Do
isvalidvalue = True
uservalue = InputBox("Value to use?")
'---Add all validations here and set variable IsValidValue to False if fails
If Trim(uservalue) = "" Then isvalidvalue = False
If CInt(uservalue) < 0 Or CInt(uservalue) 99 Then isvalidvalue = False
'------------
Loop While isvalidvalue = False

Range("B3") = uservalue

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Seanie" wrote:

I have a very simple Input Box as below, which asks a user to enter a
value. How can I build in validations within it that will check to
ensure that the value entered is a percentage, between 0% and 99%.
Also can I trap that the user must enter something and is not allowed
just to cancel out of it? My input box below has a OK/Cancel button

Sub test01()
UserValue = InputBox("Value to use?")
Range("B3").Value = UserValue

End Sub