Range("A1:M24").Select
ActiveWindow.Zoom = True

--
Regards,
Tom Ogilvy

"David" wrote in message
...
How can I reproduce the View|Zoom menu action using code?
I am using ActiveWindow.Zoom =

My problem is that this not zoom in to the cursor
position, as does the menu otpion.

David