The following code will loop until the user enters a number greater than 10.
Note that the code uses Excel's InputBox method, not the standard VBA
InputBox function. The 'Application.' is required.

Dim D As Double
Do Until D 10
D = Application.InputBox(prompt:="Enter a number.", Type:=1)
Loop


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)


"Greg" wrote in message
...
Sorry just to add to that if the answer is not right can it be looped
back to the inputbox again

Thanks

Greg
"Greg" wrote in message
...
Hi all,

Just wondering how I can have the following code to check if the answer
is only in numeric form?

dim Checker

checker = inputbox("What is the player's registration number?")


Thanks in advance

Greg