Already Zoomed Out as Far as Possible

I am trying to come up with a way of preventing a user from zooming out too
far. Is there a way to limit the user to say 30% of zoom. I have this:

If ActiveWindow.Zoom <= 30 Then
ActiveWindow.Zoom = 40
MsgBox("Already Zoomed Out as Far as Possible", _
vbOKCancel, "Max. Zoom")
End If

Somehow, the event has to be fired by a mouse scroll event, I presume. This
would be for the ActiveSheet, not an object such as a ComboBox, or anything
else.

Thanks,
Ryan---


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.