Resize all Worksheets in a WorkBook to a cell range on startup

[benweller94]

Hi,

I currently have a worksheet that changes range and zoom when opening on different resolutions on different computers.

How can you have a script that automatically resizes all worksheets to the same cell range when the workbook is opened?

Many thanks

 

[footoo]

Example :

Sub Zoom_To_Table()
Dim rng As Range: Set rng = [A:J]
With Application
    .ScreenUpdating = False
    .Width = 600
    .Goto rng, True
End With
ActiveWindow.Zoom = True
rng(1).Select
End Sub