Abfragen, ob eine bestimmte Menüleiste vorhanden ist

Sub IstVorhanden()
Dim Ctrl As CommandBarControl
Dim Txt$
Dim Schalter As Boolean
Txt = "E&xtras"
For Each Ctrl In Application.CommandBars("Worksheet Menu Bar").Controls
If Ctrl.Caption = Txt Then
Schalter = True
End If
Next Ctrl
If Schalter = True Then
MsgBox "Menüleiste ist vorhanden"
Else
MsgBox "Menüleiste ist nicht vorhanden"
End If
End Sub