Zoom Select Range

Vishesh's picture
This small piece of code can be very useful to keep the viewing area of a sheet across various screen resolutions when you deliver your project to your client.
Sub ZoomRange(rngZoom As Range)
    Application.Goto rngZoom
    ActiveWindow.Zoom = True
End Sub
 
Sub Test()
    Call ZoomRange(Sheet1.Range("A1:L23"))
End Sub