VBA Word fejl ved Exsel data

Det ku jo tyde på at adrXLS er null. Er det blevet oprettet, når koden her kaldes?

Hej tjp
Hvis jeg forstår dit kommentar rigtig så er svaret ja. Det exceldokument som word skal hente fra er oprette som 2010 udg.

Jeg tænkte mest om objektet adrXLS er initialiseret før kald af visAdresser, fx med 'Set adrXLS = GetObject(, "Excel.Application")' og at excel rent faktisk kører med dokumentet åbnet.

Hej tjp

Her er hele kode.

'Heneter Kontakpersoner
'OBS hjælp til opstiligen i kontakpersoner
Const startRækXls = 2
Dim adrXLS
'Dim sti
Private Sub åbnAdresseFilen()
On Error GoTo fejlhåndtering

'Finder projektadresseliste

    Set adrXLS = CreateObject("Excel.Application")
    With adrXLS
        .Workbooks.Open "T:\" + sagnr.Value + "\" + prnr.Value + "\01 - Projektinfo & -faciliteter\01.01 - Projektkontakter\ProjektAdresseListe.xlsx"
    End With
   
fejlhåndtering:
Select Case Err.Number
   
Case 1004
  Set adrXLS = CreateObject("Excel.Application")
    With adrXLS
        .Workbooks.Open "C:\ProjektAdresseListe.xlsx"
    End With
Case Else
End Select
End Sub
Private Sub kontakt_Click()
'Henter den valgte adresse
    åbnAdresseFilen
    hentAdressen Me.kontakt.ListIndex
    lukAdresseFilen
End Sub
Private Sub hentAdressen(ix)
'Overtfør kontakter til userform
Dim ræk As String
    ræk = ix + startRækXls
   
    With adrXLS.Activeworkbook.Sheets(1)
        Me.firma = .Range("A" & ræk)
        Me.att = .Range("B" & ræk)
        Me.adr = .Range("F" & ræk)
        Me.post = .Range("G" & ræk)
        Me.by = .Range("H" & ræk)
    End With
End Sub
Private Sub visAdresser()
'Opstiligen i kontakpersoner (Navn/Firma)
Dim række As Long, ræk As String
Dim kontakt As String, firma As String
    With adrXLS.Activeworkbook.Sheets(1)
        For række = startRækXls To 65000
            ræk = række
            If .Cells(ræk, 1) = "" Then
                Exit For
            Else
                Me.kontakt.AddItem .Range("B" & ræk) + "/" & .Range("A" & ræk)
            End If
        Next række
    End With
End Sub
Private Sub lukAdresseFilen()
'Lukker projektadresselisten
    adrXLS.Application.Quit
    Set adrXLS = Nothing
End Sub

Private Sub prnr_AfterUpdate()
Application.ScreenUpdating = False
On Error GoTo fejlhåndtering

'Henter kontaktperson for projekt
kontakt.Clear
åbnAdresseFilen
visAdresser
lukAdresseFilen
End Sub

Har været lidt optaget, sorry...
Jeg kan desværre kun teste det på Office 2007 og der virker det altså fint, lige bortset fra en manglende fejl-label i prnr_AfterUpdate.

Måske er det i familie med dette her:
http://www.access-programmers.co.uk/forums/showthread.php?t=206981

En sidebemærkning - jeg ville nok ændre:
Me.kontakt.AddItem .Range("B" & ræk) + "/" & .Range("A" & ræk)
til:
Me.kontakt.AddItem .Range("B" & ræk) & vbTab & .Range("A" & ræk)