Sub UnhideMenu() CommandBars(1).Controls("yourControl").Visible = TrueEnd SubSub HideMenu() CommandBars(1).Controls("yourControl").Visible = FalseEnd Sub