Fix Display Into The Screen

[cyliyu]

Dear All,

I have the macro as follow to fix the display into the user's screen. This is only when the user opens the excel spreadsheet and click on the button.

The range was pre-defined to be from A1 to T1.

Sub Auto_open()
  Range("A1:T1").Select
  ActiveWindow.Zoom = True
  Range("A1").Select
End Sub

1) How can I make it that it will run automatically each time the spreadsheet was opened?

2) I have a workbook with few spreadsheet; each has to define the range. e.g. sheet1 - A1: T1, Sheet2 - A1: S1 and so on. is it possible to have a standard code to auto adjust to the user screen?

 

[David Evans]

Private Sub Workbook_Open()
'code here
End Sub

 

[Hui]

The code listed by David above goes in the Workbook Object in VBA


If you want to set different parameters for each Worksheet, Add a similar event to the Worksheet Objects in VBA
But use the Worksheet_Activate event

 

[cyliyu]

The code listed by David above goes in the Workbook Object in VBA
View attachment 46011

If you want to set different parameters for each Worksheet, Add a similar event to the Worksheet Objects in VBA
But use the Worksheet_Activate event

View attachment 46012

Thanks Hui.
I got it works.