Getting all sheets in an Excel 2010 workbook to open with a set percentage zoom

**stdm11** · 09-10-2013, 05:48 AM

Can anyone please tell me how I get all worksheets in a workbook to open with a set zoom so that I can see all the information on one screen without scrolling.

thanks

David

**HaHoBe** · 09-10-2013, 06:07 AM

Hi, Daavid,

I never felt happy when my data is quenched in on 10% zoom.

Please Login or Register  to view this content.

**Dimitrov** · 09-10-2013, 10:55 PM

stdm11,

HaHoBe's code definitely works and should solve your problem elegantly. The only two minor changes I would make to it are the following:

[1] Place the code in the ThisWorkbook object (which you can see in the navigation pane of your Visual Basic Editor) instead of having the code in a module. In your Visual Basic Editor, simply double click ThisWorkbook to open it.

[2] Change the "Sub EF953851()" line in the above code to "Sub Workbook_Open()". This way, you have the desired zoom each and every time you open the spreadsheet. You are taking advantage of the workbook's open event.

____________________________________
1. If this answer helped, please click the star to the left of this reply.
2. If this answer solved your problem, please mark this thread as [SOLVED].