leere Menüleiste nach UF aufruf

Sub meineansicht()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayStatusBar = False
Application.DisplayScrollBars = False
Application.DisplayFormulaBar = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Cell").Enabled = False
Application.ScreenUpdating = True
End Sub

blende ich alles aus der Arbeitsmappe aus. Nach aufrufen und schleißen einer UF wird im oberen Bildrand eine leere Menüleiste eingeblendet, wie ist das Möglich und wie kann ich dieses unterbinden. Hat da jemand eine Idee zu?
Gruß und Dank
Holger