Option Explicit
Sub auto_Open()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Select
wks.Range("A1:T1").Select
ActiveWindow.Zoom = True
wks.Range("a1").Select 'move the cursor back to A1??
Next wks
worksheets("sheet1").select 'what sheet to start???
End Sub


None wrote:

I have made a budgeting system that contains 20 sheets. When the
workbook is opened It cycles though each sheet to collect Current data
already on each sheet.

The probelm I have run into is that depending on the size of the
monitor the workbook is opened with, manual zooming is required to get
all of the sheet info into the viewable area. (Biggest issue is
Desktop verse Lap top)

Does anyone know a way to have each sheet auto zoom to fit each
sheet to the screen? Something like

Range(cells(1,1),cells(1,20)).zoom to fit viewable window.

Thanks!

--

Dave Peterson