Sub test()
Dim var As Variant

var = Application.InputBox("Input number:", "Input", 0, , , , , 1)
If VarType(var) = vbBoolean Then Exit Sub

MsgBox var
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"bluhme " wrote in message
...
Hi,

I am looking for help with the Application.InputBox in Excel. I want to
force the user to enter a number which default is 0. However I also want
to check if the user press 'Cancel'. So my current code is something
like:

Temp = Application.InputBox("Input number:", "Input", 0, , , , , 1)
If Temp = False Then
Exit Sub
Else
'other code'
End If

However if I just hit 'Enter' with the default value, or enters '0' and
then 'Enter', my test ends the sub despite that a valid number (0) was
entered. How do I avoid this conflict between the InputBox returning
False on 'Cancel' and a value of '0' being read as False in the test?

Cheers

Bluhme.


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