Setting zoom for all worksheet pages
 

One way.

Choose one of the sheets as a base.
Assuming that this is Sheet(1) and the displayed columns are "G:K", then,
with the sheet selected, call the following sub.

Sub ZoomSheets()
Application.EnableEvents = False
Dim Zm, Sh As Worksheet
Range("G1:K1").Select
ActiveWindow.Zoom = True
Zm = ActiveWindow.Zoom
For Each Sh In Worksheets
Sh.Activate
ActiveWindow.Zoom = Zm
Next Sh
Sheets(1).Activate
Application.EnableEvents = True
End Sub

Ensure that the displayed columns fill the width of the screen as accurately
as you can. I normally call the sub from the WorkBook Open code.

Regards,

Don Lloyd


"David Crane" wrote in message
...
I have built a mutipage management reporting package, but have run into
one problem I don't know how to fix. I have designed all
information views to fit on one screen, and to require no scrolling.
Unfortunately, not all of my users can see the same amount of information
on their screens as I do. Since I do not expect that they will want to
use Zoom on each page, I am trying to figure out how to write a macro
that will allow the user to fill in a Zoom percentage on a screen I
design, check to see that the appropriate range is displayed, and then
adjust the views on all pages accordingly. I have figured out how to do
this one page at a time, but wonder if there is a way to do this to the
entire workbook. Any help will be greatly appreciated.

Setting zoom for all worksheet pages
 

Thanks to all three of you. You are helping me solve a problem that was
driving me nuts.