Menue Leiste ein ausblenden

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Mein Menue").Delete
End Sub

Private Sub Workbook_Open()
Menueanlegen
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Tabelle1" Then
On Error Resume Next
Menueanlegen
Else
Application.CommandBars("Mein Menue").Delete
End If
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
On Error Resume Next
Application.CommandBars("Mein Menue").Delete
End Sub

Im Modul habe ich folgendes:
Sub Menueanlegen()
Application.ScreenUpdating = False
Dim Menue
'......
End Sub

In der Tabelle steht folgendes,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "Tabelle1" Then
Menueanlegen
End If
End Sub

wo ich meiner Meinung nach abfragen müste ob ("Mein Menue") eingeblendet ist oder nicht um dann mit If ("Mein Menue") eingeblendet dann Exit Sub sonst Menueanlegen.
Wie müste ich hier vorgehen!
MFG Andre