Sub Test()

Dim WordApp As Object

Set WordApp = CreateObject("Word.Application")

LetterTemplate = "C:\TestDoc.doc"

With WordApp

.Documents.Open LetterTemplate
.Visible = True
.Run ("Macro1")

End With

WordApp.Quit

Set WordApp = Nothing

End Su

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