Running modules at specific time using applicationontime

Option Explicit
'// jiuk - Add this code In a the Worksheet "ThisWorkbook"

Private Sub Workbook_Open()
 myCodes_To_RUN
 
'// jiuk - any code you require can be added
theEnd:
'// jiuk do not Exit sub here
End Sub
'// jiuk - Add this code In a the Worksheet "Public "Module
'// jiuk - This adds the scheduling times for the codes to run

Sub myCodes_To_RUN()
 Select Case Time
 Case Is < TimeSerial(11, 0, 0)
 Application.OnTime TimeValue("11:00:00"), "ShowMessageMidday"
 Case Is < TimeSerial(12, 25, 0)
 Application.OnTime TimeValue("12:25:00"), "ShowMessage_afternoon"
 Case Is < TimeSerial(15, 25, 0)
 Application.OnTime TimeValue("15:25:00"), "ShowMessage_settle"
 Case Is < TimeSerial(18, 15, 0)
 Application.OnTime TimeValue("18:15:00"), "ShowMessage_EOD"
 End Select
 
theEnd:
'// jiuk do not Exit sub here

End Sub

'// jiuk - Add theses codes in a the Standard Module
Sub ShowMessageMidday()
MsgBox "Mid-day Statement run starts in an hour"
theEnd:
Exit Sub
End Sub

Sub ShowMessage_afternoon()
MsgBox "Afternoon Recs in 30min"
theEnd:
Exit Sub
End Sub

Sub ShowMessage_settle()
MsgBox "Review settlement starts in an hour"
theEnd:
Exit Sub
End Sub

Sub ShowMessage_EOD()
MsgBox "EOD in starts in an hour"
theEnd:
Exit Sub
End Sub