Excel Daten von Word auslesen

Ich schreibe in Word ein Coding, welches auf eine Excel Tabelle zugreifen soll. Es sieht folgendermaßen aus.

Private Sub UserForm_Initialize()

On Error Resume Next
Set xlApp = GetObject("D:\........\....Liste.xls")
Me.Listbox1.Clear
With xlApp
Set bereich = .worksheets(1).[A2].CurrentRegion
For i = 2 To bereich.Rows.Count
Me.Listbox1.AddItem .worksheets(1).Cells(i, 1).Value
Next
Me.Listbox1.Value = Me.Listbox1.List(0)
End With

End Sub

Jetzt möchte ich mir einzelne Zellen in Labelfeldern auf dem Userform in Word anzeigen lassen (z.b Name / Vorname usw....)

Private Sub Listbox1_Change()
i = Listbox1.ListIndex + 2
Beep
Me.Label10.Caption = Me.Listbox1.AddItem(sheets(1).Cells(i, 1).Value)
End Sub

Das klappt aber nicht!! Wo liegt der Fehler???

Danke euch

Werner