Sub UnhideMenu() CommandBars(1).Controls("yourControl").Visible = True End Sub Sub HideMenu() CommandBars(1).Controls("yourControl").Visible = False End Sub