Application.OnTime Code is not working

[loftis01]

The following code below is not working. The purpose is to execute a macro called InterdayR at 13:45:00 every day. The InterdayR code is also included. I do not understand as to why it is not working. Help! The Excel program remains open throughout the day.

Sub Interday()
'
' Interday Macro
'
Application.OnTime Date + 1 + TimeValue("13:45:00"), "InterdayR"
'
End Sub


InterdayR
Sub InterdayR()
'
' InterdayReminder Macro
'
'Place your text here
    MyNote = "Has the Interday Located on R8 been populated as of yet???"

    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "ATTENTION")

    If Answer = vbNo Then
        'Code for No button Press
        MsgBox "Please Update the Interday Field!"
    End
    Else
        'Code for Yes button Press
        MsgBox "Thank You!"
    End If
'
End Sub