Msg Box restarting every 5 seconds

[Dot]

Hello Folks.
I believe it´s a simple question.

How to do a msgbox appear every 5 seconds?
Following code example:

..........................................
Private Sub workbook_open()
MsgBox "hello msgbox", vbYesNo
End Sub
..............................................

I need this alert appears in the specified time.


Thanks

[Logit]

In ThisWorkbook paste this:

Private Sub workbook_open()
     shwMsg
End Sub

Option Explicit


Sub shwMsg()
     MsgBox "hello msgbox", vbYesNo
    Application.OnTime Now + TimeValue("00:00:05"), "shwMsg"
End Sub

Boy is your user going to be busy.

[Dot]

The Excel reports that:


"You cannot run the macro shwMsg! Maybe not be available or is disabled"

[Logit]

Place shwMsg macro into a routine module. Do not place it in ThisWorkBook.

Sorry for the confusion.

[Dot]

Genius my Friend.
Thanks for the efficency.

Thread solved.


Thank You very much

[Logit]

Glad to help