I need to have a Macro in Microsoft Word in which I search for a specified word in Excel (a name for example), but copy the text of the cell at the right (email). This is what I've done trying to solve the problem:

```
Dim xlApp As New Excel.Application, xlWkBk As Excel.Workbook
Dim StrWkBkNm As String, StrWkShtNm As String, LRow As Long, i As Long
StrWkBkNm = ActiveDocument.Path & "\BD.xlsx"
StrWkShtNm = "Hoja2"
With xlApp
  Set xlWkBk = .Workbooks.Open(StrWkBkNm) '''''''''''''''''''
  With xlWkBk
      With .Worksheets(StrWkShtNm)
        .Cells.Find(What:="Prueba", After:=ActiveCell, LookAt _
    :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Selection.Copy
      End With
    .Close False
  End With
  .Quit
End With
Selection.Paste

```

For example, I need to search for the name "AAAA", but copy aaaa@gmail.com" in the word document. See the image for better understanding.

[![enter image description here](https://i.stack.imgur.com/YrflQ.png)](https://i.stack.imgur.com/YrflQ.png)