Ron,

Youre right €“ users would get down right hostile if I changed their setting. Read your thread but am lost as to how to fit it into my Auto_Open sub. Could you show me how to fit it in. This is a big issue for me all of a sudden because of a network change that defaulted users (200+) to different settings. This zoom idea seems like the answer I desperately need. My application is desinged with 800x600, but a lot of users have been changed to 1024x768 - a real problem since I have hidden some things off-screen..

Thanks
Phi

PS. Im not a programmer, so if you see something below that could be cleaned up, please suggest



Option Explici

Sub Auto_Open(
'This code establishes the screen protocol for on-screen presentations
Dim WS As Workshee
Application.ScreenUpdating = False 'Turns off updating so code runs faste
Application.Calculation = xlAutomatic 'Executes calculations as data is entered
Application.DisplayFullScreen = True 'Sizes to full screen, no toolbar
For Each WS In Worksheet
If WS.Visible = xlSheetVisible The
WS.Selec
Application.Goto WS.Range("A1"), True 'Active cell is A
ActiveWindow.DisplayGridlines = False 'Turns off gridline
ActiveWindow.DisplayWorkbookTabs = False 'Turns off workbook tab
ActiveWindow.DisplayHeadings = False 'Turns off column & row heading
ActiveWindow.DisplayHorizontalScrollBar = False 'Turns off horizontal scroll ba
ActiveWindow.WindowState = xlMaximized 'Maximizes selected worksheet
ActiveWindow.View = xlNormalVie
End I
Nex

Worksheets("Customer").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 91 'Sets print scalin
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.5) 'Sets top header at .5" for proper print fit
Worksheets("Rationale11").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 67 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 100 'Sets print scalin
Worksheets("Rationale12").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 67 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 100 'Sets print scalin
Worksheets("Rationale13").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 67 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 100 'Sets print scalin
Worksheets("Financial").Select 'Selects the Financial workshee
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 91 'Sets print scalin
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.5) 'Sets top header at .5" for proper print fit
Worksheets("Rationale21").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 67 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 100 'Sets print scalin
Worksheets("Rationale22").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 67 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column heading
ActiveSheet.PageSetup.Zoom = 100 'Sets print scalin
Worksheets("Rationale23").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 67 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Learning and Growth").Select 'Selects the L&G worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 91 'Sets print scaling
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.5) 'Sets top header at .5" for proper print fit.
Worksheets("Rationale31").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Rationale32").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Rationale33").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Internal Business Process").Select 'Selects the IBP worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 91 'Sets print scaling
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.5) 'Sets top header at .5" for proper print fit.
Worksheets("Rationale41").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Rationale42").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Rationale43").Select 'Selects the Customer worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 100 'Sets print scaling
Worksheets("Scorecard").Select 'To open the workbook on the Scorecard worksheet
ActiveWindow.Zoom = 62 'Sizes the window to 62%
ActiveWindow.DisplayHeadings = False 'Turns off row and column headings
ActiveSheet.PageSetup.Zoom = 95 'Sets print scaling
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0#) 'Sets top header at 0.0" for proper print fit.

ThisWorkbook.Colors(7) = RGB(255, 124, 128) 'To change default color pink (index number 7) to light red (for charts)
Application.AutoPercentEntry = True 'In percent formatted cells, returns %, if decimal or whole number entered.
Application.ScreenUpdating = True 'Restore screen updating capabilities
End Sub