DoEvent, allow value change without stopping code

[tiredofit]

In the code below, I have added DoEvents, so the user can do something whilst the loop takes place.

Option Explicit

Sub Test()

    Dim i As Long
    
    For i = 1 To 10000
    
        Sheet1.Cells(i, 1).Value = i
        
        Application.Wait (Now + TimeValue("0:00:01"))
        
        DoEvents
        
    Next i
    
End Sub

However, when the code is running, if I select a cell on the worksheet and change its value, the code stops.

How can I allow the user to change a value on the worksheet without the code stopping?

Thanks

 

[tiredofit]

Correct... that line is there to check if the sheet is in edit mode and if so, wait until edit mode is finished.

Thanks