inputbox accepting only number

[lezawang]

Hi
I want to improve the code below. If user will enter a text instead of number the program will not stop because of "type miss match" message but maybe give a warning message to user or something. How can I do that? Thank you so much.

Sub studentmarks()
'to find students grade
    Dim x As Integer
    Dim z As Integer
    For z = 1 To 5
        x = InputBox("number")
        If x > 90 Then
            MsgBox "a"
        ElseIf x > 70 Then
            MsgBox "b"
        Else
            MsgBox "f"
        End If
    Next z
End Sub

 

[footoo]

What do you want to happen if Cancel is selected?

 

[Rick Rothstein]

Try using Application.InputBox with a Type argument of 1 instead of just InputBox. Execute this in the Immediate Window and see what happens if a non-number is entered...

MsgBox Application.InputBox("Enter a number please", Type:=1)

You can see all the rest of the possible arguments by putting the text cursor next to the word InputBox in the command Application.InputBox and pressing the F1 key.