Нужен простой код цикла

[D|m@n]

Народ извиняюсь заранее, за тупой вопрос, но не могу догнать, как правильно сделать данное при помощи цикла:
Есть столбец "A" в нем в ячейке допустим надпись "Иванов", мне нужно в данном диапазоне найти "Иванов" и вывести сообщение на экран. Заранее всем человеческое спасибо за отзывы.

[Pavel55]

Код: Выделить всё

Sub Макрос1()
Dim iLastRow As Long, i As Long
    iLastRow = Cells(65536, 1).End(xlUp).Row
    For i = 1 To iLastRow
        If Cells(i, 1) = "Иванов" Then
            MsgBox "Иванов найден в строке: " & i, vbInformation, "Поиск"
            Exit Sub
        End If
    Next i
    MsgBox "Иванов не найден!", vbExclamation, "Поиск"
End Sub

[Pavel55]

Код: Выделить всё

Sub Макрос1()
Dim iFound As Range
Dim iFindText As String
    iFindText = "Иванов"
    Set iFound = Columns(1).Find(What:=iFindText, LookAt:=xlPart)
    If iFound Is Nothing Then
        MsgBox "Иванов не найден!", vbExclamation, "Поиск"
        Exit Sub
    End If
    MsgBox "Иванов найден в строке: " & iFound.Row, vbInformation, "Поиск"
End Sub

[D|m@n]

Спасибо!