Sub StartTimer()
Static SchedSave
If SchedSave <> 0 Then
Application.OnTime SchedSave, "TimeOver", , False
End If
SchedSave = Now + TimeValue("00:00:10") '<--- Ten seconds .. adjust time as required
Application.OnTime SchedSave, "TimeOver", , True
End Sub
Sub TimeOver()
MsgBox "Your time is up !"
End Sub