Alarm Function in Excel

[Ammarbokhari]

Hi,
I need an excel alarm which will pop-up and ring on specific date and ring after every 10 minutes or so until it is attended to. (i.e sheet is selected or some value is changed or the alarm is canceled)
Basically it is to be used to remind the expiry date of visas for workers by ringing.

Thank you in Advance

 

[Trevor G]

I think you need to look at timer events which can be triggered every 10 minutes on a day. An example of timer events being used is shown below: The example is using a count down after seconds.

Dim CountDown As Date
Sub Timer()
CountDown = Now + TimeValue("00:00:01")
Application.OnTime CountDown, "Reset"
End Sub
Sub Reset()
Dim count As Range
Set count = [A1] ' A1 contains the number of seconds for the countdown.
count.Value = count.Value - 1
If count <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Sub DisableTimer()
On Error Resume Next
Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False
End Sub

 

[Ammarbokhari]

I think you need to look at timer events which can be triggered every 10 minutes on a day. An example of timer events being used is shown below: The example is using a count down after seconds.

Thank you for your support.

My problem being, I don't know VBA programming and hence even the minute changes I can't make myself.
I have this VBA function (that I searched), that plays alarm after comparing the values in reference cell (i.e, date values as I require it). I want it to repeat the alarm every given time once the condition is true so that even if the guy responsible is not at seat when the alarm goes off, the alarm will ring again repeatedly till he notices it, and also be able to stop it based on some event.

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function

Hope I make my question clear.
Thank you again