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

 

[Jaafar Tribak]

Just remove the () parentheses:

Application.OnTime TimeValue("17:24:00"), "DisplayAlarm"

 

[deanop2]

Just remove the () parentheses:

Application.OnTime TimeValue("17:24:00"), "DisplayAlarm"

still not working, where do the 2 parts live?

 

[deanop2]

Just remove the () parentheses:

Application.OnTime TimeValue("17:24:00"), "DisplayAlarm"

it didnt work, obviously i changed the time. where do the 2 parts live?

 

[Joe4]

Put all the VBA code in the "ThisWorkbook" module in VBA.
"Workbook_Open" event procedures only run automatically when placed in that particular module.

 

[deanop2]

Put all the VBA code in the "ThisWorkbook" module in VBA.
"Workbook_Open" event procedures only run automatically when placed in that particular module.

I've followed the instructions and nothing happens when the time elapses. removed the () and put the code in a module.

 

[Joe4]

I've followed the instructions and nothing happens when the time elapses. removed the () and put the code in a module.

After making the changes, did you close your workbook and then re-open it?

The Workbook_Open event procedure only kicks off when a workbook is first opened.
So if you make changes to it during your session, you need to close it and re-open it to kick off the changes you made.

 

[deanop2]

After making the changes, did you close your workbook and then re-open it?

The Workbook_Open event procedure only kicks off when a workbook is first opened.
So if you make changes to it during your session, you need to close it and re-open it to kick off the changes you made.

cant figure this out, followed everything and doesnt activate, i've run the message box and it does open but not from the time.
1. change the time
2. save and close
3. reopen, wait
4 time passes, nothing...

 

[Joe4]

No, you did not put in the correct place! I said you have to put it in the ThisWorkbook module. You have put it in a General module (Module1).
"Workbook_Open" absolutely MUST be in the ThisWorkbook module! That is the only place the will run automatically!

It needs to go in the module I circled off of your screen print.

 

[deanop2]

No, you did not put in the correct place! I said you have to put it in the ThisWorkbook module. You have put it in a General module (Module1).
"Workbook_Open" absolutely MUST be in the ThisWorkbook module! That is the only place the will run automatically!

It needs to go in the module I circled off of your screen print.

View attachment 111179

I'd had it in there b4 and I did misread your response. it was the close and reopen issue. moved it back reopened and it works, thanks