Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Const DELAY = 150&
Sub Scroll()
Set rng = ActiveWindow.VisibleRange
For i = 1 To 5
ActiveCell.Offset(rng.Rows.Count - 1, 1).Select
Sleep DELAY
Next i
End Sub

Change the value of DELAY to meet your needs.

--
Regards,
Tom Ogilvy

"brazen234" wrote
in message ...

Is it possible to scroll a worksheet automatically at a speed of my
choosing ? Hitting the scroll arrow moves it too quickly and using the
mouse wheel slowly going thru 10000 cells will make me insane. I'd like
to be able to use a speed which gives me just a split second to
comprehend what is in the cell and then for the worksheet to scroll to
next cell. I figure three cells a second scroll speed would be about
right.
As always, thanks for the help.


--
brazen234
------------------------------------------------------------------------
brazen234's Profile:
http://www.excelforum.com/member.php...fo&userid=9952
View this thread: http://www.excelforum.com/showthread...hreadid=499366