Поиск всех ячеек, содержащих введенный текст - VBA

Формулировка задачи:

Нужен код, который ищет на листе Excel, введенную фамилию (не обязательно только фамилию) и выделает ее (и похожие варианты). Помогите написать

Решение задачи: «Поиск всех ячеек, содержащих введенный текст»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
 
 
    Dim RezPoiska As Range, firstAddress$
    Static Iskomoe$
    'Iskomoe = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГёГ*ГЎГ«Г®Г* ГЁГ±ГЄГ®Г¬Г®ГЈГ® Г±Г«Г®ГўГ* (Г±ГЁГ¬ГўГ®Г«Г» ГЇГ®Г¤Г±ГІГ*Г*Г®ГўГЄГЁ *, ?)", , Iskomoe)
    Iskomoe = TextBox1.Text
    Set RezPoiska = Cells.Find(What:=Iskomoe, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If RezPoiska Is Nothing Then Exit Sub 'Г*ГҐ Г*Г*Г©Г¤ГҐГ*Г®
    firstAddress = RezPoiska.Address
    RezPoiska.Select
    Do
        Set RezPoiska = Cells.FindNext(RezPoiska)
        If RezPoiska.Address = firstAddress Then Exit Do 'ГўГҐГ°Г*ГіГ«ГЁГ±Гј ГЄ ГЇГҐГ°ГўГ®Г© Г*Г*Г©Г¤ГҐГ*Г*Г®Г©
        Union(Selection, RezPoiska).Select
    Loop
 
End Sub