Word vba

Dette er egentlig også mit spørgsmål, så vi er i hvert fald 2 der meget gerne ville bede om lidt hjælp til dette... :)

Er observeret - vender tilbage senere p.g.a. kundeopgaver..

En model er klar - VBA koden i Word ser således ud:
Hvis i sender en mail - så returnerer jeg begge filer.
@-adresse under min profil.

Rem Reference til Microsoft Excel skal sættes via Alt+F9 / Tools / References

Const xlsFilNavn = "Datakilde.xlsx"
Dim xls As Object
Dim sti As String
Dim cprnr As String, afd As String
Private Sub Cb_ok_Click()
    sti = ActiveDocument.Path & "\"
   
    Set xls = CreateObject("Excel.Application")
    With xls
        .Workbooks.Open sti & xlsFilNavn
        .Visible = Visible
    End With
   
    findData Me.Tb_Id, Tb_cpr, Tb_Afd
   
    xls.ActiveWorkbook.Close
    Set xls = Nothing
   
    ActiveDocument.Activate
End Sub
Private Sub findData(id, cprnr, afd)
Dim antalRækker As Integer
   
    Application.ScreenUpdating = False
   
    With xls.ActiveWorkbook.Sheets(1)
        xls.ActiveSheet.Activate
        antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
       
        For ræk = 2 To antalRækker
            If LCase(.Range("A" & ræk)) = id Then
                cprnr = .Range("B" & ræk)
                afd = .Range("C" & ræk)
                Exit Sub
            End If
        Next ræk
    End With
    cprnr = "???"
    afd = "???"
End Sub