Automated scrolling for spreadsheet via VBA

Hi,

I am not sure what is the exact requirement but this code will work...
You can press Ctrl+break to stop the macro.....
Here is attachment....Book1.xlsm

Sub AutoScroll()
    
    Dim i As Long

        For i = 1 To 500
            ActiveWindow.ScrollRow = i
            Application.Wait (Now + TimeSerial(0, 0, 1))
        Next i
    
End Sub


Sub AutoScroll2()
    
    Dim i As Long

        For i = 500 To 1 Step -1
            ActiveWindow.ScrollRow = i
            Application.Wait (Now + TimeSerial(0, 0, 1))
        Next i
    
End Sub