Exit For

Public Sub ExitForExample()

Dim x As Byte

For x = 1 To 50
Range("B" & x).Select
    If Range("B" & x).Value = "Stop" Then
    Exit For
    ElseIf Range("B" & x).Value = "" Then
    Range("B" & x).Value = "info"
    End If
Next x