Re: Automatic Screen Fit

Hi Rick,

In other words, if I want sheet1 to appear on opening, and the user saves
such that sheet3 appears, how can I correct that?

This works OK...

Private Sub Workbook_Open()
Me.Sheets(1).Activate
Application.Active***.Range("A1:H4").Select
Application.ActiveWindow.Zoom = True
Active***.Range("C2").Select
End Sub


However, if a user is able to change the order of the *** tabs and
saves that change then it will no longer be your intro *** that opens
first.
So, a better way may be to use the intro ***'s name. The code below
assumes that name is "Intro" (it could still be 'Sheet1" for all I
know), so just edit the code to the correct name.

Private Sub Workbook_Open()
Me.Worksheets("Intro").Activate
Application.Active***.Range("A1:H4").Select
Application.ActiveWindow.Zoom = True
Active***.Range("C2").Select
End Sub

Also, some of the changes that users can make can be eliminated using
Workbook protection.


Ken Johnson

.