åben word fra excel

Hej...

ved følgende kode prøver jeg at få åbnet word fra excel dokument:


Sub OpenAWordDoc()
Dim WdApp As Object, WdDoc As Object

Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open "C:\test.doc"
WdApp.Visible = True


End Sub

men koden melder fejl med :

"Run-time error '5981'
Makroen kan ikke åbnes."

er der nogen der kan hjælpe ? :(