Application VisualBasic Script

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