Great contribution Vic !!!

I just checked it out. Looks like it could be the solution for the missing
"Worksheet_ScrollChange" event - i.e. capture the event of scrolling the
worksheet. Example:

Sub TimerProc()
Static ScrRw As Long
With ActiveWindow
If .ScrollRow < ScrRw Then Range("A20") = .ScrollRow
'Note: DON'T CALL A MESSAGE BOX or will freeze !!!
ScrRw = .ScrollRow
End With
End Sub

Do you know if there is a performance problem when it is running with large
projects or other issues?

Regards,
Greg Wilson