Command to tie mouse wheel click to a macro same way as Worksheet_BeforeRightClick

I'd like to have a click on the scroll wheel trigger a macro execution similar to this:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "You clicked right mouse button."
End Sub

Is there a way to do this? If tying code execution to wheel click is not possible, I'd be willing to tie it to scrolling the wheel.

Thanks