Inputbox Type 1 Get A Number From The User
InputBox Example 1: (Type 1) - Inputbox to get a number from the user.
'==================================================================================================
' ## InputBox Example 1: (Type 1) - Inputbox to get a number from the user
'==================================================================================================
Sub InputBoxNumber()
'// Vars
Dim AgeNum As Variant
'// Prompt for an age
AgeNum = Application.InputBox _
(Prompt:="How old are you?", Title:="Numbers only", Type:=1)
'// Test if clicked cancel
If AgeNum = False Then Exit Sub
'// Output
MsgBox "You are " & AgeNum & " years old."
End Sub