Thread: Loop gone crazy
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
mjack003
 
Posts: n/a
Default Loop gone crazy


Howdy,

Can someone tell me why this loop accepts any value rather than the set
constants?

Dim shp as Long
Dim shpSw as Integer

Do while shpSw = 0

shp = inputbox("Please enter a number:")

if shp = 1 or 2 or 3 or 4 then
shpSw =1

else

Msgbox("Please enter a number from 1-4")

end if
Loop


Should be a simple loop that if say "5" is entered will give the msgbox
and loop but it is accepting 5 and setting my switch to 1.

Thanks for the help in advance,

Mjack


--
mjack003
------------------------------------------------------------------------
mjack003's Profile: http://www.excelforum.com/member.php...fo&userid=5141
View this thread: http://www.excelforum.com/showthread...hreadid=494023