I am trying to pull data from Excel and place it into a word Text Form Field. The code below works except that it will not pull data from the cell I specify -- it pulls the text from a different cell. I can see that the correct cell is being selected in Excel because it is outline, but it simply does not pull the data from it. I have messed around trying different cells and with some it pulls the data I want and with others it pulls data from a different cell.

Anyone know reaons why this might be happening and how I can resolve it? Thanks.

```
Private Sub CommandButton1_Click()

Dim wrdApp
Dim wrdDoc
Dim Data

ActiveSheet.Cells(8, 1).Activate
Data = Selection.Cells(8, 1).Value

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Open("H:\jpmDesk\Desktop\VBA tester.docx")

With wrdDoc

wrdApp.ActiveDocument.Bookmarks("Text1").Select
wrdApp.Selection.Range.Text = Data

End With

Set wrdDoc = Nothing
Set wrdApp = Nothing

End Sub

```