CommandBars("Mainmenu").Delete On Error GoTo 0 Set cbr = CommandBars.Add(MenuBar:=bolMenueBar, Temporary:=bolTemporary) With cbr .Name = "Mainmenu" .Position = msoBarTop .Visible = True End With