Macro para crear hipervínculos desde excel a word

Hola a todos!!

Veréis, estoy programando una macro (que necesariamente tiene que ser en excel) esta abrirá un archivo word para pasarle datos de las hojas de calculo. Uno de los datos que se va a escribir en el word deberá ser un hipervínculo. El problema es que sé como escribir desde excel a word, pero no soy capaz que lo escrito quede como hipervínculo. He estado buscando por ahi y lo último que intente ha sido esto:

Sub escribe()
 Dim objword As Word.Application
 Set objword = New Word.Application 'Creo el objeto word
 objword.Documents.Open "C:\Users\ggc\Desktop\Informe2.doc" 'Abro el documento
 objword.Visible = True
 objword.Selection.GoTo What:=wdGoToBookmark, Name:=here
 objword.Selection.InsertAfter "link"
 objword.Selection.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
 "Informe.doc", SubAddress:="", ScreenTip:="", TextToDisplay:= _
 "link"
End Sub

pero falla en la última expresión. Por google no he encontrado nada parecido así que agradecería cualquier ayuda que me podáis dar.

Un saludo y muchas gracias!!!