How can I stop a loop when the right mouse button is selected? 4

[JensKKK]

How can I interrupt the execution of a do while loop when the right mousebutton was selected.

Any help appreciated.

 

[combo]

Using DoEvents with event driven breaking:

Public WithEvents xlWbk As Workbook

Private Sub xlWbk_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If MsgBox("Do you want to stop(break) the code", vbYesNo + vbExclamation, "a code is running") = vbYes Then
    Set Me.xlWbk = Nothing
    End
    ' 'Stop' to break the code
    ' however, xlWbk object has to be handled differently
End If
End Sub

Sub EndlessLoop()
Set ThisWorkbook.xlWbk = ThisWorkbook
Do
    DoEvents
Loop
End Sub

combo

 

[JensKKK]

Cheers Combo.

That is what I really needed.

Thanks again.

 

[combo]

Thanks, however my above code is rather brute. In practice I would rather set global value in the event procedure, that would be checked in the rest of procedure with loop - there may be need to clear variables, set output data etc. The samples were in other replies.

combo