Option Explicit
Public arrFrmSetup()
Const MenuItemName = "JP Calendar"

Sub Auto_Open()
   arrFrmSetup = Array(True, False)   ' начальная установка чек-боксов календаря _
                    arrFrmSetup(0) = True => "Ввод двойным щелчком" _
                    arrFrmSetup(1) = False >= "Не прятать после ввода"
'   Call CalendarMenuCreate
End Sub
Sub Auto_Close()
'   Call CalendarMenuDelete
End Sub

Sub JP_Calendar()
   On Error Resume Next
   ThisWbk.Reload_Appl
   JP_Сalendar_Frm.Show 0 '(vbModeless)
End Sub

Sub CalendarMenuCreate() ' создать пункт меню
   Dim btn As CommandBarControl
   On Error Resume Next
   Application.CommandBars("Cell").Controls(MenuItemName).Delete
   Set btn = Application.CommandBars("Cell").Controls.Add(before:=1)
   With btn
      .FaceId = 125
      .Caption = MenuItemName
      .OnAction = "JP_Calendar"
      '.BeginGroup = True
   End With
End Sub

Sub CalendarMenuDelete()
   On Error Resume Next
   Application.CommandBars("Cell").Controls(MenuItemName).Delete
End Sub