[COLOR=black cyan]' In General Declarations[/color]
Dim StopTheLoop As Boolean
[COLOR=black cyan]' In Button_Click[/color]
Sub Button_Click()
StopTheLoop = TRUE
End Sub
[COLOR=black cyan]' In the Loop[/color]
Do While SomeCondition
DoEvents
If StopTheLoop Then
StopTheLoop = FALSE
Exit Do
End If
[COLOR=black cyan]' Loop Processing[/color]
Loop