InputBox- Amend 'Cancel' Button

[Keibri]

Hi guys,

If it is not too much to ask can someone help me out with the below.

Basically I have this macro which every time it is run an input box will pop up and:
-if a 1 is inserted it will call a macro called January
-if a 2 is inserted it will call a macro called February

Sub Monthly_Report_viewer()

vervolg:
      r = InputBox("Type the Month you would like to view" _
        & Chr(13) & Chr(13) & "e.g:1 for January", "Monthly Report")
        
        If r = 1 Then
            Call January
            Exit Sub
        End If
        
        If r = 2 Then
            Call February
            Exit Sub
        End If

  GoTo vervolg
        
End Sub

Now, the input box also has a 'Cancel' button. Would it be possible to amend the code so as to close the input box if someone clicks the 'Cancel' button?

Appreciate a lot your kind help!!

Thanks

Keibri

[Norie]

Keibri

Try this.

Sub Monthly_Report_viewer()
Dim r As Variant

vervolg:
    r = InputBox("Type the Month you would like to view" _
                 & Chr(13) & Chr(13) & "e.g:1 for January", "Monthly Report")

    If r = "" Then Exit Sub
    
    If r = 1 Then
        'Call January
        Exit Sub
    End If

    If r = 2 Then
        'Call February
        Exit Sub
    End If

    GoTo vervolg

End Sub

[Keibri]

Thanks Norie!! That was great and worked wonders. Cheers for your great help!