---

For Next文内で途中で抜ける(Exit Forを使う)

Dim i
For i = 0 To 10
	If i = 8 Then Exit For
	Debug.Print i
Next
Debug.Print "End : " & i