¿como se eliminan los hipervinculos de todo un documento?

"Mari" escribió en el mensaje news:

Quiero eliminar todos los hipervinculos pero de una sola vez, se puede?

Hola Mari,
puedes eliminarlos todos a la vez si tu intención es eliminar el hipervínculo, pero conservando su texto:
Sheet(Name|Index).Hyperlinks.Delete

Si no me equivoco no existe un método para eliminarlos todos a la vez si la intención es eliminar también el texto. Pero sí
puedes recorrer la colección de hipervínculos de una hoja, y limpiar el contenido de la celda correspondiente a cada hipervínculo:

'******************
Dim objLink As Hyperlink

For Each objLink In ActiveSheet.Hyperlinks
objLink.Range.ClearContents
Next
'******************


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn