VBA CommandBar vymazat

Dobrý den,

mám tento Sub, který funguje (přidává možnost spuštění skriptu přes pravé tlačíko myši):

Private Sub Workbook_Open()

Dim Levyklik1 As CommandBarButton
Set Levyklik1 = Application.CommandBars("List Range Popup").Controls.Add
With Levyklik1
.Caption = "DBOS - odeslat e-mail"
.OnAction = "Module8.Vygenerovat_Dotaznik"
.BeginGroup = True
.Move before:=1
.Priority = 1
.FaceId = 45
.ShortcutText = "Odešle dotazník organizaci na vybraném řádku."
End With

End Sub

Po ukončení běhu aplikace však volba přes pravé tlačítko myši zůstává. Rád bych, aby při zavření souboru zmizelo.

Mám tedy tohle, to ale nefunguje. Proč prosím?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("List Range Popup").Controls("Levyklik").Delete
End Sub

Předem děkuji M. Hodek