Dim WordApp As Object

Set WordApp = CreateObject("Word.Application")

With WordApp
.Documents.Open "C:\Filename.doc"
.Visible = True
End With

WordApp.Quit

Set WordApp = Nothin

--
Kaa
-----------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...nfo&userid=751
View this thread: http://www.excelforum.com/showthread.php?threadid=55727