Setting zoom for all worksheet pages
 

Hi david,

Try putting your code into a For..Each..Next statament.

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name < mSheet Then
ws.Activate
....<Your code here
End If
Next ws

HTH's
Russell.(Skmr3)

-----Original 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.
.