How to end unlimited cycle?

[obivan]

Hi, can you get me help? If I want to end unlimited cycle; how can I do it? This is my cycle.

Private Sub CommandButton1_Click()
For i = 1 To 10
'statement
i = 0
Next
End Sub

Thank a lots

Obivan

[Aussiebear]

Did your cycle ever start?

[Bob Phillips]

If you want to just break it, hit the Esc key, maybe more than once, or Ctrl-Break.

If you want an indeterminate number of iterations, use Do...Loop with a condition upon which it exits.

[obivan]

I would like to end cycle via action of button on sheet.
obivan

[Paul_Hossler]

Maybe have the 'Stop' button set a flag, and test for that flag within the endless loop?

Paul

[Bob Phillips]

Public Cancel As Boolean

Private Sub CommandButton1_Click()
Dim i As Long
Cancel = False
For i = 1 To 10
'statement
i = 0
DoEvents
If Cancel Then i = 10
Next
MsgBox "Quit"
End Sub

Private Sub CommandButton2_Click()
Cancel = True
End Sub

[obivan]

Thanks Paul.
Great solution, thanks for your hepl, xld.

obivan