Åbne Word fra excel

Følgende har virket indtil jeg installerede det på en anden maskine:

Sub Breve()
'
' Breve Makro
' Makro indspillet 28-03-2004 af Rotne
'
    Selection.AutoFilter Field:=1
   
    Dim y As Word.Application
    On Error Resume Next
    Set y = GetObject(, "Word.Application")
   
    If Err.Number <> 0 Then 'Not running
    Set y = CreateObject("word.application")
    End If
    Application.ScreenUpdating = False
    With y
       
        .Visible = True
       
      .Application.WindowState = wdWindowStateMaximize
 
       
        .Documents.Open Filename:="C:\Dokumenter\Navne(2).doc", ConfirmConversions:=False, _
        ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
       
        .Selection.GoTo What:=wdGoToBookmark, Name:="Dato"
OSV


Den vil ikke åbne dokumentet - det er som jeg mangler en indstilling efter den nye installation af Word.