Ofimática - Pegar Hipervinculos de excel

Tengo una planilla excel con hipervinculos y necesito automatizar la copia, en vez de usar el menu hiperviculo y copiar hipervinculo, luego pegar y obtengo la direccion del mismo.
La macro no funciona

Ayuda por favor,
Maria