display messagebox on time

[deanop2]

I'm trying to get a messagebox to open and display a message, I found this code below but it doesn't work
I've tried putting the Private Sub in the workbook and the Sub Display Alarm() in a module but nothing happens.


Private Sub Workbook_Open()
Application.OnTime TimeValue("17:24:00"), "DisplayAlarm()"
End Sub

Sub DisplayAlarm()
MsgBox "Good Morning"
End Sub

 

[Joe4]

You are welcome.
Glad you have it working now.