There are two separate thing to check:

A. Make sure the stuff I posted is pasted in a standard module, not a
Private area:

From an Excel worksheet:
1. ALT-F11 brings up the VBE window
2. ALT-I
ALT-M opens a fresh module
3. paste the stuff in and close the VBE window


If you have more than one workbook open at the same time, Excel may have
trouble finding flash. If this is the case change:

Sub Flash()
to:
Public Sub flash()
--
Gary''s Student - gsnu200773


"Jock" wrote:

Nearly there!
I have placed the subs in sheet1 and public constants in module1.
When I run Start timer' a number appears in F10 then, after about 4 secs, I
get the message "The macro '!flash' cannot be found"
What have I done wrong here?
--
Traa Dy Liooar

Jock


"Gary''s Student" wrote:

Enter this VBA:

Public whn As Double
Public Const T = 4 ' four seconds
Public Const mac = "flash" ' the name of the procedure to run

Sub StartTimer()
whn = Now + TimeSerial(0, 0, T)
Application.OnTime EarliestTime:=whn, Procedu=mac, Schedule:=True
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=whn, Procedu=mac, Schedule:=False
End Sub

Sub flash()
n = Evaluate("=randbetween(1,30)")
Range("F10").Value = Cells(n, 1).Value
Call StartTimer
End Sub

Start by running StartTimer.
--
Gary''s Student - gsnu200773


"Jock" wrote:

Is it possible to have numbers from a predetermined list, appear in a
specified cell at a specified time interval?
IE from a list in (A1:A30) containing numbers from 1-30, I would like a
random number to appear in F10 every 4 seconds.
What do you think?
--
Traa Dy Liooar

Jock