Hello, I have a macro that i execute within the document to open another word docx. When I exit the document i get this error.

Sub OPENBARCODE()
'
' OPENBARCODE Macro
'
'
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(FileName:="C:\Documents and Settings\Administrator\Desktop\sMD1.docx")
WordApp.Visible = True
Set WordDoc = Nothing
Set WordApp = Nothing
End Sub
Any thoughts?