Application.InputBox with Default:=0 testing False

  • Thread starter Thread starter bluhme
  • Start date Start date
B

bluhme

Hi,

I am looking for help with the Application.InputBox in Excel. I want t
force the user to enter a number which default is 0. However I also wan
to check if the user press 'Cancel'. So my current code is somethin
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' an
then 'Enter', my test ends the sub despite that a valid number (0) wa
entered. How do I avoid this conflict between the InputBox returnin
False on 'Cancel' and a value of '0' being read as False in the test?

Cheers

Bluhme
 
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
 
Back
Top