And finally a magically growing worksheet. The following macro will loop through the Zooms for Sheet1, going from 10% to 200%, incrementing by 10%, pausing a second between changes, and then it will restore Sheet1 back to it’s original state.

If you are using Excel 97, you may have to write the zoom size that will be the equivalent ratio of your active zoom. In this case, since you reduced it to 50%, you would now have to increase it by 200% to bring it to normal i.e. 100%. I’m not sure if I’m right, and I didn’t have an IDE environment to check this, but let me know.

For Each ws In Worksheets
ws.Activate
ActiveWindow.Zoom = (100/ActiveWindow.Zoom)*100
Next