In a Worksheet you can use View->Zoom->Fit Selection to automatically adjust the Zoom to fit a selected Range.
You can “Fit Selection” in VBA by selecting the Range and setting Zoom equal to True.
Sheet1.Range("A1:F15").Select 'set range zoom
ActiveWindow.Zoom = True
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about Easy VBA. A VBA add-in to quickly insert any of the sample code found on our site directly into the Visual Basic Editor, save your own frequently used code, and more!Learn More!
Did you find this VBA tutorial useful? Then share it with your friends and colleagues: