Try Rons suggestion
Dim varused As Variant
varused = Application.InputBox("Enter the value.", Type:=1)
'// User cancelled
If varused = False Then End
MsgBox varused
You should when ever possible try an intercept know return values
as early as possible, using the Type:=1 forces the input to accept
numbers only ie you have intercepted / masked out any Non numerics
out earlier on and don't need to test for this.
kkknie wrote in message ...
This is how I do it:
Code:
--------------------
Dim strTemp as String
Dim varused as double
strTemp = Application.InputBox("Enter the value.")
If Not IsNumeric(strTemp) Then
'Message non numeric and exit
End If
If Trim(strTemp) = "" Then
'Message blank and exit
End If
varused = CDbl(strTemp)
--------------------
K
---
Message posted from http://www.ExcelForum.com/