Makro ile Alarmlı Saat Ekleme

Sub Alarm()
  Dim beepat As String
  beepat = InputBox("Alarm Ekle", "hh:mm:ss " & Format(Now, "mm:hh"), "17:00")
  If beepat = "" Then
    MsgBox "Vazgeçildi"
    Exit Sub
  End If
  Application.OnTime TimeValue(beepat), "BeepMe"
End Sub

Sub CountDownTimer()
  Dim beepat As String
  beepat = InputBox("Count down Timer hh:mm:ss  i.e. 10:00", "Şu anda saat " & Format(Now, "hh:mm:ss"), "3:00")
  If beepat = "" Then
    MsgBox "Vazgeçildi"
    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