I changed the following, but i still receive err 13 type mismatch on set wdapp-statement.

[VBA]Dim flag As String
Dim WdApp As Application
Dim WdDoc As Word.Document
path = "C:\Documents and Settings\Jean-Pierre Doeraene\Mijn documenten\DATA\EXCEL"
Filechoosen = "C:\Documents and Settings\Jean-Pierre Doeraene\Mijn documenten\DATA\EXCEL\Checklistdata.xls"
Workbooks.Open Filechoosen
flag = "Y"
Set WdDoc = Nothing
Set WdApp = Nothing
Set WdApp = CreateObject("Word.Application")[/VBA]

Sorry, can you check it again ?