Edit spreadsheet while VBA timer is running

[jarredwyatt]

Hi people,

My knowledge of VBA is very limited but i was able to write the following code. I know its ugly but it works. The problem is while the timer is counting down it freezes every time a cell is edited. I believe it is because the code will not run while the spreadsheet is effectively in "edit mode". I there a way around this?

[jarredwyatt]

forgot to attach the code.

Sub starttimer()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
If Sheet1.Range("l1") = TimeValue("00:20:00") Then
Application.Speech.speak (".welcome to the d p r room. Please discuss yesterdays actions")
End If

End Sub
Sub nexttick()
If Sheet1.Range("l1") = 0 Then Exit Sub
Sheet1.Range("l1").Value = Sheet1.Range("l1").Value - TimeValue("00:00:01")

If Sheet1.Range("l1") = TimeValue("00:00:00") Then
Application.Speech.speak (".Time is now up. Please conclude the meeting and five s the room before departing Thank you")
ElseIf Sheet1.Range("l1") = TimeValue("00:05:00") Then
Application.Speech.speak (".Please move on to Productivity")
ElseIf Sheet1.Range("l1") <= TimeValue("00:05:00") Then
Sheet1.Shapes("textbox 2").Fill.ForeColor.RGB = RGB(113, 132, 193)
ElseIf Sheet1.Range("l1") = TimeValue("00:10:00") Then
Application.Speech.speak (".Please move on to Quality")
ElseIf Sheet1.Range("l1") <= TimeValue("00:10:00") Then
Sheet1.Shapes("textbox 2").Fill.ForeColor.RGB = RGB(250, 113, 62)
ElseIf Sheet1.Range("l1") = TimeValue("00:15:00") Then
Application.Speech.speak (".Please move on to Safety")
ElseIf Sheet1.Range("l1") <= TimeValue("00:15:00") Then
Sheet1.Shapes("textbox 2").Fill.ForeColor.RGB = RGB(251, 201, 60)
Else
Sheet1.Shapes("TextBox 2").Fill.ForeColor.RGB = RGB(166, 166, 166)
End If
starttimer
End Sub

Sub stoptimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub