Home » Blogs » Vishesh's blog

Zoom Select Range

Vishesh's picture
Submitted by Vishesh on 9 July, 2011 - 19:59
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
»