Private Sub exit_cBtn_Click()
          ThisWorkbook.Close
End Sub

Private Sub exit_cBtn_Click()
           
  ThisWorkbook.Close
  Workbook( 1 ).Activate  

End Sub

Private Sub exit_cBtn_Click()
  
  Dim qqq As Workbook
  
  If Application.Workbooks.Count =  2  Then
  
    For Each qqq In Application.Workbooks
    
       If qqq.Name <> ThisWorkbook.Name Then qqq.Activate
       
    Next qqq
      
  End If
         
  ThisWorkbook.Close
End Sub

Function AddItemToMenu(CBarName As String, CapS As String, NameMacro As String, _
                  Optional BGroup As Boolean, Optional HotKey As String) As Integer
   
   Set NewItem = Application.CommandBars(CBarName).Controls.Add(Type:=msoControlButton, temporary:=True)
   With NewItem
        .Style = msoButtonCaption
        .Caption = CapS
        If Not IsMissing(BGroup) Then .BeginGroup = BGroup
        .onAction = "'" & ActiveWorkbook.name & "'!" & NameMacro
        AddItemToMenu = .Index
   End With
   If Not IsMissing(HotKey) Then _
             Application.MacroOptions Macro:="'" & ActiveWorkbook.name & "'!" & NameMacro, _
                                                HasShortcutKey:=True, ShortcutKey:=HotKey
      'HotKey=Ctrl+Shift+HotKey
End Function