macro to zoom all sheets to full screen size

[skf786]

hi,

i am using the following script on 'this workbook' so when the file opens, the first sheet is full screen and stretched from a1 to U1 (this is the DefinedRange). i would like all sheets to be stretched from A1 to U1. what would b the code for this.

thank you

Private Sub Workbook_Open()
 Application.DisplayFullScreen = True

Range("DefinedRange").Select
ActiveWindow.Zoom = True
'Cells(1, 1).Select


End Sub

 

[Fluff]

How about

   Dim Ws As Worksheet
   Application.ScreenUpdating = False
   
   For Each Ws In Worksheets
      Ws.Activate
      Ws.Range("A1:U1").Select
      ActiveWindow.Zoom = True
      Ws.Range("A1").Select
   Next Ws

 

[skf786]

How about

   Dim Ws As Worksheet
   Application.ScreenUpdating = False
  
   For Each Ws In Worksheets
      Ws.Activate
      Ws.Range("A1:U1").Select
      ActiveWindow.Zoom = True
      Ws.Range("A1").Select
   Next Ws

thanks this works well. i would like to end up on cell A1 on 'Home' sheet. thats the name of the sheet.

thanks again

 

[Fluff]

Just put a line of code at the end to select that sheet.

 

[skf786]

Just put a line of code at the end to select that sheet.

im sorry i didnt get it as i have no vba experience

 

[Fluff]

Add this after the loop

Sheets("Home").Select

 

[skf786]

Add this after the loop

Sheets("Home").Select

Super! this is awesome. thanks so much

 

[Fluff]

You're welcome & thanks for the feedback.