How to Cancel an InputBox

[largeselection]

I don't know why this isn't working and I've tried a bunch of different combinations, but basically i'd just like to exit the sub if the user clicks the cancel button.

I've tried the variations of code below: Anyone see where the issue is?

I keep getting type mismatch errors.

Resp = Application.InputBox("File Name Please...", "", , , , , 1)
If Resp = False Then
    Exit Sub
Else
End If
Continue0:

and

Resp = Application.InputBox("File Name Please...", "", , , , , 1)
If Resp <> False Then
    GoTo Continue0
Else
Exit Sub
End If
Continue0:

 

[VoG]

Try like this

Sub test()
Dim Resp As String
Resp = Application.InputBox("File Name Please...", Type:=2)
If Resp = "False" Then
    Exit Sub
Else
    MsgBox "OK"
End If
End Sub

 

[largeselection]

Hi!

Thanks that fixed it!

I didn't realize that I needed the "" around the False- I would have thought that would have checked the response in the box to see if that said "False".

Thanks!

 

[VoG]

Hi. It is because Resp is declared as a string. The result of Cancel is coerced into a string. If you declared Resp as Variant you would check against False (no quotes).

 

[largeselection]

Ohhhh I understand now. Thank you for your help and instruction.