Hatirlatma Programi

[ANTALYA 01]

Merhaba Aşağıdaki Kodu Buldum Fakat Yapamadım.Şöyle bir şey istiyorum
Exelin A sütununa Notlar yazılacak B sütununa Hatırlatma Günü C Sütununa Saati Exel Sayfası devamlı açık kalacak veya kapalı Hatırlatma günü ve saati geldiğinde Sesle ve Yazıyla Hatırlatma yapacak.

Sub Alarm()
Dim beepat As String
beepat = InputBox("Give Alarm at", "hh:mm:ss " & _
Format(Now, "mm:hh"), "15:46")
If beepat = "" Then
MsgBox "cancelled"
Exit Sub
End If
Application.OnTime TimeValue(beepat), "BeepMe"
End Sub
'Example of a Count Down Timer
Sub CountDownTimer()
Dim beepat As String
beepat = InputBox("Count down Timer hh:mm:ss i.e. 10:00", _
"Time now is " & Format(Now, "hh:mm:ss"), "3:00")
If beepat = "" Then
MsgBox "cancelled"
Exit Sub
End If
Application.OnTime (Now + TimeValue(beepat)), "BeepMe"
End Sub
Sub beepme()
Beep
Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beepme2"
End Sub
Sub beepme2()
Beep
Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beepme3"
End Sub
Sub beepme3()
Beep
End Sub