Hi,
I need to run a process repeatively, but I need to be able to stop it too or
change the timing , but keep getting the following error when trying to stop
the process " Run-Time error '1004': Method 'ONTIME' of Object 'Application'
Failed"

Any idea why, or how I should do it instead.
Many thanks

Sub RunMacro()
Application.OnTime Now + TimeValue("00:00:05"), "OnTimeMacro"

End Sub

Sub OntimeMacro()
MsgBox "hello"
RunMacro

End Sub

Sub byebye()
Application.OnTime EarliestTime:=TimeValue("00:00:05"),
Procedure:="my_Procedure", Schedule:=False ' this is where I keep getting
the error?
MsgBox "Bye Bye"
End Sub

What you need to do is save the scheduled time in a public variable, and use
that when stopping it.

Public nTime as Double

Sub RunMacro()
nTime = Now + TimeValue("00:00:05")
Application.OnTime nTime, "OnTimeMacro"

End Sub

Sub OntimeMacro()
MsgBox "hello"
RunMacro

End Sub

Sub byebye()
Application.OnTime EarliestTime:=nTime, Procedure:="my_Procedure",
Schedule:=False
MsgBox "Bye Bye"
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Dan" <(E-Mail Removed)> wrote in message
news3285EC8-B727-4B28-9ED1-(E-Mail Removed)...
> Hi,
> I need to run a process repeatively, but I need to be able to stop it too
> or
> change the timing , but keep getting the following error when trying to
> stop
> the process " Run-Time error '1004': Method 'ONTIME' of Object
> 'Application'
> Failed"
>
> Any idea why, or how I should do it instead.
> Many thanks
>
> Sub RunMacro()
> Application.OnTime Now + TimeValue("00:00:05"), "OnTimeMacro"
>
> End Sub
>
> Sub OntimeMacro()
> MsgBox "hello"
> RunMacro
>
> End Sub
>
> Sub byebye()
> Application.OnTime EarliestTime:=TimeValue("00:00:05"),
> Procedure:="my_Procedure", Schedule:=False ' this is where I keep getting
> the error?
> MsgBox "Bye Bye"
> End Sub
>

Thank you very much

"Bob Phillips" wrote:

> What you need to do is save the scheduled time in a public variable, and use
> that when stopping it.
>
> Public nTime as Double
>
> Sub RunMacro()
> nTime = Now + TimeValue("00:00:05")
> Application.OnTime nTime, "OnTimeMacro"
>
> End Sub
>
> Sub OntimeMacro()
> MsgBox "hello"
> RunMacro
>
> End Sub
>
> Sub byebye()
> Application.OnTime EarliestTime:=nTime, Procedure:="my_Procedure",
> Schedule:=False
> MsgBox "Bye Bye"
> End Sub
>
>
> --
> HTH
>
> Bob
>
> (there's no email, no snail mail, but somewhere should be gmail in my addy)
>
> "Dan" <(E-Mail Removed)> wrote in message
> news3285EC8-B727-4B28-9ED1-(E-Mail Removed)...
> > Hi,
> > I need to run a process repeatively, but I need to be able to stop it too
> > or
> > change the timing , but keep getting the following error when trying to
> > stop
> > the process " Run-Time error '1004': Method 'ONTIME' of Object
> > 'Application'
> > Failed"
> >
> > Any idea why, or how I should do it instead.
> > Many thanks
> >
> > Sub RunMacro()
> > Application.OnTime Now + TimeValue("00:00:05"), "OnTimeMacro"
> >
> > End Sub
> >
> > Sub OntimeMacro()
> > MsgBox "hello"
> > RunMacro
> >
> > End Sub
> >
> > Sub byebye()
> > Application.OnTime EarliestTime:=TimeValue("00:00:05"),
> > Procedure:="my_Procedure", Schedule:=False ' this is where I keep getting
> > the error?
> > MsgBox "Bye Bye"
> > End Sub
> >
>
>
>