The following worked when I tested it.

Sub Test1()
Dim NumberofColumns As Integer
Dim BMax As Integer
Dim InputErrorCheck As Boolean

InputErrorCheck = False
Do While InputErrorCheck = False

NumberofColumns = Application.InputBox(prompt:="Enter Number of 2D
Elements", Type:=1)

If IsNumeric(NumberofColumns) Then
If NumberofColumns <= 254 And NumberofColumns 0 Then
' I assumed to wanted more than zero - easily altered if not.
InputErrorCheck = True
End If
End If
If NumberofColumns = False Then
MsgBox ("Operation Canceled")
Exit Sub
End If
Loop
MsgBox (NumberofColumns)
End Sub

--
Darren
"ExcelMonkey " wrote in message
...
I am using the inputbox method to take a number from a user. I want the
inputbox to do the following:

1) if the user does not enter anything, exit sub
2) if the user picks a number 254, disallow it and start again
3) if user picks number <= 254 then proceed

How do I set this code up so that if the user picks 254 then it will
take the user back the to the initial IF Statment? As modeled, it only
prompts them once and then proceeds with anwer.




---
Message posted from http://www.ExcelForum.com/