STOP Statement
Sub Provide_BreakPoint_Programatically()
Range("A1").CurrentRegion.Clear
Dim i As Integer
For i = 1 To 11
If i = 5 Then
Stop
End If
Cells(i, 1).Value = i
Next
End Sub