Sub AddNewMenu() HelpIndex = CommandBars(1).Controls("Help").Index Set NewMenu = CommandBars(1).Controls.Add _ (Type:=msoControlPopup, _ Before:=HelpIndex, _ Temporary:=True) NewMenu.Caption = "&Java2s" End Sub