zoom in on range

[Atishoo]

Im wishing to create a zoom button to zoom in on a preset range when clicked.

i have tried using the zoom command but this seems only to function with
objects not ranges and i dont want to use best fit because resizing the cells
is gonna cause one hell of a lot of probs!!

Anyone got any ideas
the range I want to zoom in on is A3:U31

i am hoping then to replace the zoom button with a zoom out button to
reverse the process

 

[Gary''s Student]

Try this simple macro:

Sub Macro1()
ActiveWindow.Zoom = True
End Sub