Set MenuItemAdded = Application.ShortcutMenus(xlWorksheetCell). _
       MenuItems.Add(Caption:=Menu_Caption$, _
                 OnAction:=Macro_tobe_Run$, _
                 Before:=Menu_Item_Before$)