Exit SUB if CANCEL is pressed in Input Box

[S.H.A.D.O.]

Good morning,

I have the code:

    Dim n As Integer

    n = InputBox("Total numbers to be drawn from?", "Combinations")

What do I need to add so that if the user clicks Cancel it will exit the Sub please.
I have n dimmed as integer as it is used as a value in the code.

I have tried using things like:

If n = 0 Then Exit Sub

If n = "" Then Exit Sub

Thanks in advance.

 

[Jaafar Tribak]

Try this :

    Dim n As String
    n = InputBox("Total numbers to be drawn from?", "Combinations")
    If StrPtr(n) = 0 Then Exit Sub

 

[S.H.A.D.O.]

Thanks for the reply Jaafar Tribak,

Try this :

    Dim n As String
    n = InputBox("Total numbers to be drawn from?", "Combinations")
    If StrPtr(n) = 0 Then Exit Sub

Won't changing the varable to String muck up the fact that it is used as an Integer for the combinations or slow the code down?

Thanks again.

 

[S.H.A.D.O.]

Good afternoon,

I have come up with the following...

    Dim n As Integer
    n = Application.InputBox("Total numbers to be drawn from?", "Combinations", 0)
    If n = 0 Then Exit Sub

...which works by basically just adding Application.InputBox

I also tried:-

    n = Application.InputBox("Total numbers to be drawn from?", "Combinations", 0)
    Select Case n
        Case 1
    Case 0
        Exit Sub
    End Select

...which seems to work.