Sub setzoom()
Sheets.Select
ActiveWindow.Zoom = 90
Sheet1.Select
End Sub

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
for each ws in worksheets
ws.select
activewindow.zoom=80
next

Further, you can set a print range for each sheet and use
activewindow.zoom=true.

--
Don Guillett
SalesAid Software

"wuwu" wrote in message
...
Dear all

I have to open a lot of excel files one day, but the view size is not
the
same. How can do that the view size will always change to 80% when I
open
each file.


--
wuwu