You're welcome. Nice to get the feedback.

--
Ian
--
"Puzzled" wrote in message
...
Thank you

"Ian" wrote:

I've not done much with OnTime, but with the help of this group I got the
following line working.

Application.OnTime earliesttime:=Now + TimeSerial(0, 0, 3),
procedu="UnhideColumns"

--
Ian
--
"Puzzled" wrote in message
...
Looking for help in making a stop macro the below timer macro
Timer works but seems to continue running

Public Sub timer1()
Application.OnTime Now + TimeValue("00:00:5"), "stop1"
End Sub

Thanks Leon