Zoom with mouse

Hello

I have the following macro in my personal workbook:
sub zoomin()
Dim myzoom As Integer
myzoom = ActiveWindow.zoom
If myzoom <= 400 Then
ActiveWindow.zoom = myzoom + 5
End If
End Sub

Sub zoomout()
Dim myzoom As Integer
myzoom = ActiveWindow.zoom
If myzoom >= 10 Then
ActiveWindow.zoom = myzoom - 5
End If
End Sub

This is for zooming in and out a worksheet. I have added two commands in the tollbar and linked to above macros so that clicking on one command will zoom in and clicking on the other will zoom out. It works well.
Is it possible to link the above macros to mouse.... I mean something like this: shiftR and left mosue click will zoom in and shiftR+ rightmouse click zoom out.

Appreciate your comments.

Hi

Thanks for this new trick. I tried this and the zoom goes only to 100% not more. Why is it like this?