Zoom Select Range
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
»
- Vishesh's blog
- Login or register to post comments
- 10813 reads
Recent comments
5 years 34 weeks ago
6 years 20 weeks ago
6 years 32 weeks ago
6 years 35 weeks ago
6 years 36 weeks ago
6 years 42 weeks ago
6 years 50 weeks ago
6 years 50 weeks ago
6 years 50 weeks ago
6 years 50 weeks ago