How to pop up message box even when editing a cell

[anish.ms]

Hi Experts,
The following on time message is not popping up if the user is editing a cell. How can I run the codes even if the user is editing a cell (probably a formula) without loosing the cell value/formula.


Private Sub Workbook_Open()
Application.Run "OnTime"
End Sub


Sub OnTime()
Application.OnTime Now + TimeValue("00:10:00"), "MyMacro1"
End Sub


Sub MyMacro1()
UName = Split(Environ("UserName"), ".")
UName = UName(0)
MsgBox "Hi " & UName & vbNewLine & "You have 20 minutes left to complete the tests, workbook will automatically close in 20 Minutes."
Application.OnTime Now + TimeValue("00:10:00"), "MyMacro2"
End Sub


Sub MyMacro2()
MsgBox "Hi " & UName & vbNewLine & "You have 10 minutes left to complete the tests, workbook will automatically close in 10 Minutes."
Application.OnTime Now + TimeValue("00:10:00"), "CloseMacro"
End Sub


Sub CloseMacro()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub




Thanks in advance!