You may or may not like the results but put this is the ThisWorkbook module
to do every sheet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.UsedRange.Select
ActiveWindow.Zoom = True
Range("a1").select
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Adam" wrote in message
...
Hi

Excel 2003.

I have a workbook with multiple sheets. Each sheet has multiple tables,
two
to a printing page.

What I would like to do is set the document to open so that the view is
exactly a page wide for the User. For example when i set the zoom to 75%,
it
looks perfect for me but when colleagues use the document, it appears a
lot
more zoomed in.

I have no problems using a macro on opening of the document if needed!

Any help, much appreciated!