Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) CommandBars("MyShortcut").ShowPopup Cancel = True End Sub