David, here is one way, for one sheet

Private Sub Workbook_Open()
Sheets("Sheet2").Select
ActiveWindow.Zoom = 90
End Sub

Or for all sheets

Private Sub Workbook_Open()
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

Put in this workbook code
--
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" wrote in message
...
How can I write a macro that will set the zoom on the
worksheet when the file is opened?

Thanks,
David