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 AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!