Mystisk problem vba

Hey!

Følgende kode giver problemer efter i længere tid at have virket upåklageligt:

Sub OpretTilmeldingsskema()

Dim y As Word.Application
    Set y = CreateObject("Word.Application")
   
    With y
        .Visible = True
    .Documents.Open Filename:="eksempel"
           
        Worksheets("Borgerliste").Range("W5").Copy
    .Selection.Goto What:=wdGoToBookmark, Name:="Tekst1"
        .Selection.PasteAndFormat (wdPasteDefault)
        Worksheets("Borgerliste").Range("X5").Copy
    .Selection.Goto What:=wdGoToBookmark, Name:="Tekst2"
        .Selection.PasteAndFormat (wdPasteDefault)
        Worksheets("Borgerliste").Range("Y5").Copy
    .Selection.Goto What:=wdGoToBookmark, Name:="Tekst3"
        .Selection.PasteAndFormat (wdPasteDefault)
    Application.CutCopyMode = False
        Range("B6").Select
        .Selection.Goto What:=wdGoToBookmark, Name:="Rulleliste1"

        End With

End sub

Det sjove er at på min computer er der ingen problemer, men min kollega får beskeden:

"Compile error:
Can't find project or library"

Der er nogle af PC'erne der har office 2007 og nogle kører på 2003, men det er ikke konsekvent at det kun virker på den ene udgave...

What to do?