Can't Stop a Timer

Hey all,

I have a timer set to repeat every 5mins after a certain time, but I just can't get it to stop after 4:35PM

 
Sub Workbook_Open()
Application.OnTime TimeValue("09:20:00"), "my_Procedure"
Application.OnTime TimeValue("09:30:04"), "my_Procedure"
Application.OnTime TimeValue("09:31:00"), "my_Procedure"
Application.OnTime TimeValue("09:33:00"), "my_Procedure"
Application.OnTime TimeValue("09:35:00"), "my_Procedure"
Application.OnTime TimeValue("09:38:00"), "my_Procedure"
Application.OnTime TimeValue("09:41:00"), "my_Procedure"
Application.OnTime TimeValue("09:45:00"), "my_Procedure"
Application.OnTime TimeValue("09:50:00"), "my_Procedure_repeated"
MsgBox "Morning Repeater Activated"
End Sub


Sub my_Procedure_repeated()
Dim nRow As Long
    With ThisWorkbook.Sheets("Tracker")
        nRow = .Range("D" & Rows.Count).End(xlUp).Row + 1
        .Range("B" & nRow).Value = CDate(Format(Now, "hh:mm"))
        .Range("D" & nRow).Value = .Range("D9").Value
        .Range("F" & nRow).Value = .Range("F9").Value
        .Range("H" & nRow).Value = .Range("H9").Value
        .Range("J" & nRow).Value = .Range("J9").Value
        .Range("L" & nRow).Value = .Range("L9").Value
        .Range("N" & nRow).Value = .Range("N9").Value
        .Range("P" & nRow).Value = .Range("P9").Value
        .Range("Q" & nRow).Value = .Range("Q9").Value
    End With
     Call timer 'starting timer again
End Sub

Private Sub timer()
    Application.OnTime Now + TimeValue("00:05:00"), "my_Procedure_repeated"
End Sub

Sub stoptimer()
    Application.OnTime Now, Procedure:="timer", Schedule:=False
   'Application.OnTime TimeValue("09:35:00"), "timer", Schedule:=False
End Sub

I've tried everything from previous ExcelForums posts, google searches and even previous MS Office Support inquiries but I just can't get it to stop unless I close all excel sheets; which I can't since I have too many important sheets to do so :/

Any help would be much appreciated!

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Thank you for adding the code tags!

Good afternoon Exequiel3k

Your stop routine is missing a parameter : you have to define exactly when your timer started. To do this you will need to set up a variable in your start routine that you can call in the stop routine.

Chip Pearson has an article here with example code on starting and stopping a timer - use these examples as a guide and your timer should work fine.

HTH

DominicB