Option to Exit Macro Via Message Box

Hi kirsty

Sub CountWorkbooks()
    Dim Xresponse As Integer
    Xresponse = MsgBox("More that one workbook open." & Chr(10) & "Workbooks Open =" & Windows.Count, vbYesNo + vbCritical)
    Select Case Xresponse
    Case 6
        MsgBox ("Yes")
    Case 7
        MsgBox ("No")
        Exit Sub    ' This line will exit the sub
    End Select


End Sub