Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub Test()

Dim lStartTime As Long

Randomize

Sleep (Int((10 * Rnd) + 1) * 1000)

lStartTime = timeGetTime()

MsgBox "Press the Enter key as fast as you can", , _
"reaction speed tester"

MsgBox "reactiom time: " & timeGetTime() - lStartTime & " milli-seconds",
, _
"reaction speed tester"

End Sub


RBS


"David94" wrote in message
...
I am doing a science fair project which involves human reaction times. Can
I
set Excel up to measure and record the time between two inputs
(keystrokes,
mouse clicks, etc...). Does Excel have a "stopwatch" function?