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
