Excel - Do Loop se interrumpe solo

Hola gente, soy pablo de Argentina, tengo conocimientos básicos de programación en VB y tengo la siguiente consulta:
Dntro de una Sub Workbook_Open tengo un Do Loop, con Doevents en el medio y funciona todo bien.
El problema es que no quiero que se interrumpa hasta cerrar el libro, y aunque no tengo bien en claro porque, se interrumpe cuando edito una celda una celda incluso en otra hoja o en otro libro dentro de la misma instancia de excel
Disculpen si la pregunta es muy basica y desde ya agradezco cualquier ayuda
Saludos

podrías colocar el código completo o el archivo para verlo?

Saludos desde Baires, JuanC

Gracias Juan por responder, son de San Lorenzo, Santa Fe
Este es el código, pero te mando el archivo a tu cuenta para que se entienda mejor

Private Sub Workbook_Open()
Do
If Worksheets(1).Cells(5, 5).Value = L And Time - T > Dly Then Dly = Time - T: GoTo 1
If Worksheets(1).Cells(5, 5).Value <> L Then Dly = Time - T: T = Time: L = Worksheets(1).Cells(5, 5).Value
1 If Second(Now) = 0 And w = 0 Then
M = Minute(Now)
If M = 0 Or M / Worksheets(1).Cells(6, 5).Value = CInt(M / Worksheets(1).Cells(6, 5).Value) Then
If Worksheets(1).Cells(7, 5).Value = 10000 Then Worksheets(1).Cells(7, 5).Value = 0
Worksheets(1).Cells(Worksheets(1).Cells(7, 5).Value + 10, 2).Value = Worksheets(1).Cells(7, 5).Value + 1
Worksheets(1).Cells(Worksheets(1).Cells(7, 5).Value + 10, 3).Value = Now
Worksheets(1).Cells(Worksheets(1).Cells(7, 5).Value + 10, 4).Value = Worksheets(1).Cells(5, 5).Value
Worksheets(1).Cells(Worksheets(1).Cells(7, 5).Value + 10, 5).Value = Worksheets(1).Cells(6, 5).Value
Worksheets(1).Cells(Worksheets(1).Cells(7, 5).Value + 10, 6).Value = Dly
Worksheets(1).Cells(7, 5).Value = Worksheets(1).Cells(7, 5).Value + 1
w = 1
ThisWorkbook.Save
cad = ThisWorkbook.Name
ThisWorkbook.SaveCopyAs (ThisWorkbook.Path & "Backup " & ThisWorkbook.Name)
Worksheets(1).Range("B10:D10009").Copy Destination:=Worksheets(2).Range("B18:D10017")
Beep
End If
End If
If Second(Now) <> 0 Then w = 0
DoEvents
Loop
End Sub