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

"cgrose54" wrote in message
...
I have a worksheet with mutlitple columns, is there any way to view the
entire worksheet at once without using the slide to view from one end to
the
other? Any help is greatly appreciated.