I have three separate macros and would like to be able to trigger them with three different events - right mouse click, middle wheel click, and left mouse click. Ideally, I'd like to be able to turn this mouse option on and off, with a shortcut keystroke, similar to this:

Sub shortcutToAssignMouseKeys()
    Application.OnKey "^q", "assign_mouse_keys"
End Sub
And then a shortcut to turn it off. What's the simplest way to do this?

Thank you