Sandy

Right click your sheet tab, View code and paste this in. It scrolls from a1
to the last used cell in column A at the rate of 1 row per second. Change the
time value to suit

Sub sonic()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("A1").Select
For x = 1 To lastrow
ActiveWindow.ScrollRow = activerow + x
Application.Wait Now + TimeValue("00:00:01")
Next
End Sub

Mike

"Sandy" wrote:

Is there any way to code smooth scrolling in vba, such that the information
can be read as the scroll takes place. I suppose I mean a slow scroll.

I have tried .ScrollRow and .SmallScroll combined with Time Values which
does scroll slowly but jumpy.

Sandy