Sub CallEx3()

    Dim objExcel As New Excel.Application
    Dim exWb As Excel.Workbook
    Dim oRng As Excel.Range
    Dim oSheet As Excel.Worksheet
    Dim LastRow As Long
    
    Set exWb = objExcel.Workbooks.Open("U:\VBA Word Automation\Excel Test Sheet.xlsx")
    
    For Each oSheet In objExcel.ActiveWorkbook.Worksheets
            LastRow = Cells(Rows.Count, 1).End(xlUp).Row
             For i = 2 To LastRow
                 ThisValue = Cells(i, 1).Value
                           If ThisValue = TextBox1.Text Then
                          Cells(i, 6).Copy
                               WordApp.Selection.PasteSpecial.FillBM Link:=False,    DataType:=wdPasteText, _
                             Placement:="bmDT", DisplayAsIcon:=False                  
                 End If
            Next i

    Next oSheet


    exWb.Close

    Set exWb = Nothing
    Set objExcel = Nothing
    Set oRng = Nothing
    
    Exit Sub
   
End Sub