try it this way

Dim wd As Word.Application
Dim doc As Word.Document
Set wd = New Word.Application
wd.Visible = True
Set doc = wd.Documents.Open("C:\yourfolder\yourdoc.doc")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Curt" wrote in message
...
get file not found have changed file name numerous times to no avail.
reloaded office 2000 code is good does anyone have an idea as to why it
wont
find file.
this is code I am useing files are in folder opens yearly fine copied code
changed file name and no matter wont find file
Stumped

Private Sub optionbutton35_Click()
OptionButton35.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\yearly.doc")
End Sub
Private Sub Optionbutton36_Click()
OptionButton36.Value = False
Dim Word As New Word.Application
Dim WordDoc As Word.Document
Word.Visible = True
Set WordDoc = Word.Documents.Open("\parade\this.doc")
End Sub