Excel - Agregar word

Muy buenas amigos
A ver si es posible hacer esto.
Quiero que, pulsando un boton del formulario, se pueda buscar un documento word y anexarle a excel
Gracias

Lee este mensaje en emagister:
http://foros.emagister.com/tema-incluir_archivo_word-12890-448152.htm

Lo he leido, pero necesitaria el codigo para hacerlo con el clip de un boton
gracias

Desde Excel y en una celda desocupada le das a insertar / objeto / documento de Microsoft Word, y activa la casilla mostrar icono icono antes de aceptar.

Al aceptar te abre Word y un documento en blanco. Pega en él el documento que quieras.

Enciende la grabadora de macros y realiza tu procedimiento, graba y apaga la grabadora.
Despues inserta el boton desde view/toolbars/controltoolbox, selecciona propiedades y aplica el condigo antes grabado

Este el codigo que sale grabando con la macro, pero al ejecutarlo, no aparece la ventana de buscar el archivo, que es lo que pretendo
Un saludo

Sub abrirword()
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\xxx\xxx.doc", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{90110C0A-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
IconIndex:=0, IconLabel:= _
"C:\xxxxx\xxx.doc").Select
End Sub