Exit sub when cancel button pressed on InputBox

[marc81]

Hi,

I have an Input Box to select a case based on the user input of option 1 or 2. All works fine but I want to be able to utilise the cancel button as at the moment it does nothing at all. Is there a way I can adjust the below code to exit the sub if the cancel button is pressed?

Dim Prompt As String
Dim UserResp As String
Dim UR As Integer
Prompt = "1. Depot List" & vbCrLf
Prompt = Prompt & "2. Account List"
UR = 0
While UR < 1 Or UR > 2
UserResp = InputBox(Prompt, "Would you like to run the ZT60 by Depot List or Account List?")
UR = Val(UserResp)
Wend
Select Case UR

Thanks,

Marc

 

[RoryA]

If UserResp = "" then exit sub

should do.

 

[dmt32]

Dim Prompt      As String
    Dim UserResp    As Variant
    Dim UR          As Integer
    Prompt = "1. Depot List" & vbCrLf
    Prompt = Prompt & "2. Account List"
    UR = 0
    While UR < 1 Or UR > 2
        UserResp = InputBox(Prompt, "Would you Like To run the ZT60 by Depot List Or Account List?")
        'cancel pressed
        If StrPtr(UserResp) = 0 Then Exit Sub
        UR = Val(UserResp)
    Wend
    Select Case UR
        
    End Select

Dave

 

[marc81]

Fantastic, thanks for such a quick response. Just added Dave's code which worked spot on.

Appreciate your help - simple when you know how

 

[dmt32]

Glad we could help & appreciate the feedback

edit: I should have added that StrPtr only works with the InputBox Function - the InputBox Method cancel button returns False.

Dave