Private Sub Workbook_Open()
'Call CheckAlerts in 2 minutes
Application.OnTime Now + TimeValue("00:02:00"), "MyAlert"
End Sub
in new module
Sub myalert()
MsgBox "this is an alert"
End Sub
Private Sub Workbook_Open()
MyAlert
End Sub
and in NewModule you need to call it as recursive..
Sub myalert()
MsgBox "this is an alert"
Application.OnTime Now + TimeValue("00:02:00"), "MyAlert"
End Sub
Private Sub Workbook_Open()
MyAlert
End Sub
-----
goes in the ThisWorkbook section.
The second procedure:
-----
Sub myalert()
MsgBox "this is an alert"
Application.OnTime Now + TimeValue("00:02:00"), "MyAlert"
End Sub