Here is a macro based on your code.
I have changed the filename and path, so you will need to replace it with yours. I used a single path & filename combination to get the Excel file and access it with it's default application, i.e., Excel.
There is no need to 'Activate' the Excel file, and as is the case for most VB statements in Excel, it is not necessary to 'Select' a cell before accessing it.
I used the Word document's filename and path properties to create the hyperlink, so that the hyperlink will always be correct even if you choose to save the Word document somewhere else or with a different name.
I also access the worksheet by name ("Sheet1") rather than ActiveSheet, so that there is no ambiguity.
Here is the code:
Public Sub LinkXL()
'get file object opened by Excel (default application by file extension association)
Set MyXl = GetObject("C:\temp\WordLinked.xls")
Address:=ActiveDocument.Path & "\" & ActiveDocument.Name, _
'make sure file is set to visible, so that user can see it in Excel
MyXl.Windows(1).Visible = True
'save and close the file
The above is in a standard sub routine, but I am assuming you are placing it in a 'Before Close' event. It should work the same in a before close, although I haven't tested it.