timer Macro

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

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),
procedure:="UnhideColumns"

--
Ian
--
"Puzzled" <[email protected]> wrote in message
news:[email protected]...
> 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

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),
> procedure:="UnhideColumns"
>
> --
> Ian
> --
> "Puzzled" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>

You're welcome. Nice to get the feedback.

--
Ian
--
"Puzzled" <[email protected]> wrote in message
news:[email protected]...
> 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),
>> procedure:="UnhideColumns"
>>
>> --
>> Ian
>> --
>> "Puzzled" <[email protected]> wrote in message
>> news:[email protected]...
>> > 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
>>
>>
>>