Overførsel til Word fejler

Jeg har følgende (del af) makro
"
start Word og opret et dokument
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
   
    Set wrdDoc = wrdApp.Documents.Add
   
  x = 1
 
' Skriv data i array'et til Word dokumentet
    With wrdDoc
   
    Do While UArray(x, 2) <> ""
               
        For y = 1 To 13 '13 kolonner
          If y = 8 Then
          y = 10
          End If
        .Content.InsertAfter "" & UArray(x, y)
        wrdApp.Selection.MoveRight Unit:=wdCharacter, Count:=Len(UArray(x, y)) - p
        wrdApp.Selection.TypeText Text:=vbTab
        p = p - 1
        Next y
           
        .Content.InsertParagraphAfter
        x = x + 1
   
    Loop
         
    End With
   
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
"

Når makroen køres 2. gang fejler den. (dvs. hver 2. gang). Fejlmeddelelsen er en besked om at projektet eller biblioteket ikke kan findes. Fejlen opstår kun i Excel 2000 men ikke i Excel 2003.

Er der nogen der har en ide om hvad der går galt!!

Det kan være jeg først får tid til at svare tilbage på søndag.