Automatic zoom when new sheet opened

[The_Steward]

Hey!

Trying to run a script in ThisWorkbook Object that auto zooms to the range selection when a new sheet is selected. I often use two screens and want any sheet I use to automatically zoom into the selection when I switch to it regardless of what screen size i'm using.

This is what I have so far. It currently just resizes the active sheet after I run the macro.

Sub Worksheet_Zoom()
Dim ws As Worksheet

For Each ws In ThisWorkbook.workSheets
    Range("B1:AD26").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
    
    Next ws
End Sub

 

[rollis13]

If you need to zoom on every sheet this could be a solution. Whenever you move to a different sheet the zoom will be activated and deactivated in the previous sheet. These macros must be pasted in the ThisWorkBook module.

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    Sh.Range("B1:AD80").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetDeActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    ActiveWindow.Zoom = False
    Application.ScreenUpdating = True
End Sub

 

[The_Steward]

If you need to zoom on every sheet this could be a solution. Whenever you move to a different sheet the zoom will be activated and deactivated in the previous sheet. These macros must be pasted in the ThisWorkBook module.

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    Sh.Range("B1:AD80").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetDeActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    ActiveWindow.Zoom = False
    Application.ScreenUpdating = True
End Sub

Thankyou! Worked great. Initially when I was returning to a screen that had been zoomed in the display and the cell I clicked mismatched, but I opened the workbook again it seemed to be working fine.

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.