InputBox- Amend 'Cancel' Button

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