Hi

does anyone know a good way of producing a delay in a macro
so that it reveals hidden objects and data and waits
between lines of code over a defined time period?

i have used a bit of code below which produces a delay of
approx 1 second - however this runs much faster than 1
second on some faster colleagues computers

For z = 1 To 2000
Range("a1").Select
Next z

as an alternative i also used the code below which produces
a one second delay but i cannot adapt it to produce
fraction of a second delays

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

any advice greatly appreciated to give exact 1/4, 1/2 and
whole second delays

regards

matt - a maths teacher in manchester, england

Matt,

Use Wait, for example

Application.Wait (Now + Time("0:00:10"))

waits 10 seconds.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Matt Dunbar" wrote in message
...
Hi

does anyone know a good way of producing a delay in a macro
so that it reveals hidden objects and data and waits
between lines of code over a defined time period?

i have used a bit of code below which produces a delay of
approx 1 second - however this runs much faster than 1
second on some faster colleagues computers

For z = 1 To 2000
Range("a1").Select
Next z

as an alternative i also used the code below which produces
a one second delay but i cannot adapt it to produce
fraction of a second delays

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

any advice greatly appreciated to give exact 1/4, 1/2 and
whole second delays

regards

matt - a maths teacher in manchester, england

Hi

have a look at

http://www.decisionmodels.com/downloads.htm

for some material. He has a microtimer which is very
useful.

search on the ng, too

hth

Tim

PS numeracy rules?!




-----Original Message-----
Matt,

Use Wait, for example

Application.Wait (Now + Time("0:00:10"))

waits 10 seconds.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Matt Dunbar" wrote in message
...
Hi

does anyone know a good way of producing a delay in a
macro
so that it reveals hidden objects and data and waits
between lines of code over a defined time period?

i have used a bit of code below which produces a delay
of
approx 1 second - however this runs much faster than 1
second on some faster colleagues computers

For z = 1 To 2000
Range("a1").Select
Next z

as an alternative i also used the code below which
produces
a one second delay but i cannot adapt it to produce
fraction of a second delays

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

any advice greatly appreciated to give exact 1/4, 1/2
and
whole second delays

regards

matt - a maths teacher in manchester, england




.