[Paul B[_6_]]

David, see if this will help

Sub Set_zoom()
Application.ScreenUpdating = False
Set A = ActiveSheet
For Each Sheet In ThisWorkbook.Worksheets
Sheet.Activate
ActiveWindow.Zoom = 90
Next Sheet
A.Activate
Application.ScreenUpdating = True
End Sub


--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
"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.