Scroll Bar Range Too Short; Need to Scroll Further Down the Workheet

Hi Folks:

I can easily mouse-click inside the worksheet and scroll down to where ever I want using the wheel on the top of my mouse, but I can't do that with the right vertical scroll bar to view the full visible area using the right scroll bar. Is there any way to the expand the "range" of the scroll bar to at least cover the the visible scroll area of the worksheet.

I do have this code running to prevent users from wandering around too far from the Dash Board on the worksheet. Thanks for any help.

Private Sub Worksheet_Activate()



Application.ScreenUpdating = False
ActiveWindow.ScrollRow = 1
ActiveWindow.Zoom = 60
Range("A1").Select
    
 ActiveSheet.ScrollArea = "$A$1:$AL$250"
    
 Application.ScreenUpdating = True
End Sub