Type Mismatch error on InputBox

I am trying to only have the option 1, 2, or 3 be entered. I have that part down, but if someone clicks cancel or just closes the input box i get the type mismatch I believe because no integer was found....is there a way around this?

thanks

here is the code I am using

HTML Code: 

thanks,

JJ

First, try using Application.InputBox as this gives you a little more control in terms of validation...

Dim intResponse As Integer
intResponse = Application.InputBox("Choose One" & Chr(10) & Chr(10) & "1 - Lease Lock" & Chr(10) & "2 - Upgrade" & Chr(10) & "3 - Lease Lock & Upgrade", "Contract(s) sent out", Type:=1)
Select Case intResponse
    Case 1 To 3
    Case Else
        MsgBox "Must choose (1,2,3)"
        Exit Sub
End Select