Select some cells and then run:

Sub Macro1()
ActiveWindow.Zoom = True
End Sub

If you assign a shortcut key to the macro, it will be super easy to use.
--
Gary''s Student - gsnu2007k


"Won" wrote:

Sorry, I did not explain this very well in my previous post.

I¹d prefer that I do not have to name each worksheet in the macro, just be
able to select the cells in the frontmost worksheet, then apply the macro
zoom to fit the window.