【ExcelVBA】for文 Exit Forでループを抜ける

ある条件に合致した場合にループを抜けるなど。

　Sub sample1()

　　　Dim i As Integer

　　　Dim subject As String

　　　For i = 2 To 10

　　　　　If Not IsNumeric(Range("B" & i)) Then

　　　　　　　subject = Range("A" & i)

　　　　　　　Exit For

　　　　　End If

　　　Next i

　　　MsgBox subject & "には数値以外の値が入っています"

　End Sub