Как осуществить поиск определенного слова в книге?

для затравки
With ActiveDocument.Range.Find 'вместо этого это: Worksheets("Лист1").Range("b3:f11") 
 
    .Text = "<" & Первое_слово & "," 'поиск в начале слова
    .Wrap = wdFindStop 'поиск остановить, остановит поиск по достижении конца
    .MatchWildcards = True 'эта опция отвечает за поиск с использованием подстановочных знаков, не работает когда установлено в положение False, или её нет вообще, если установлена в положение True, тогда работает
    Счётчик = 0
    Do While .Execute = True
     'выделит искомые слова
    .Parent.Select
    Искомое = Selection.Text
     'или
    Искомое = .Parent
    Счётчик = Счётчик + 1
    Loop
End With

Sub ПоискСвязей()
    Dim Sht As Worksheet
    Dim rng As Range, cell As Range
    Dim msg$, FirstAddress$
 
    On Error Resume Next
    For Each Sht In ActiveWorkbook.Worksheets
 
        Set rng = Sht.Range("A1").SpecialCells(xlCellTypeFormulas)
        Set cell = rng.Find(What:="[", _
                            LookIn:=xlFormulas, _
                            LookAt:=xlPart, _
                            SearchDirection:=xlNext)
 
        If Not cell Is Nothing Then
            FirstAddress = cell.Address
            Do
                msg = msg & Sht.Name & vbTab & cell.Address(False, False) & vbNewLine
                Set cell = rng.FindNext(cell)
            Loop While Not cell Is Nothing And cell.Address <> FirstAddress
        End If
 
        Set cell = Nothing
        Set rng = Nothing
    Next Sht
    MsgBox msg
End Sub

Cells.Find(What:="текст", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Rows("23:23").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Cells.Find(What:=ComboBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate