I am trying to save a copy of a document on closing.  The
original document has already been saved but I want to
save a copy as filtered html to another location for
intranet purposes.  The code I have is:

Private Sub Document_Close()

Dim Save2Intranet As Boolean

Save2Intranet = MsgBox("You are about to close. Do you
wish to save a copy to the intranet?", vbYesNo) = vbYes
If Save2Intranet Then
   .SaveAs "C:\apps\news\newsreleases\" & strTitle,
wdFormatFilteredHTML
End If

End Sub

but this doesn't work.... Help!