¿Cómo puedo quitar todos los hipervínculos sin tener que ir uno a

"Flipi" escribió en el mensaje news:

Hola,
Necesito quitar todos los hipervínculos de una hoja Excel, pero no encuentro
modo. Podría quitarlos uno a uno, pero me llevaría demasiado tiempo. Estoy
seguro que hay una manera, pero no la encuentro...

Puedes usar el siguiente código:


Sub QuitarHipervínculos()
Dim hlH As Hyperlink
Dim wksH As Worksheet

For Each wksH In ThisWorkbook.Worksheets
For Each hlH In wksH.Hyperlinks
wksH.Range(hlH.Parent.Address).ClearContents 'Para borrar tanto el hipervínculo como el contenido de la celda
wksH.Range(hlH.Parent.Address).Hyperlinks.Delete 'Para convertir el hipervínculo en texto "normal"
Next hlH
Next wksH

Set wksH = Nothing
Set hlH = Nothing
End Sub


Ten en cuenta que tendrás que mantener activa tan sólo la instrucción adecuada a lo que necesites: quitar el hipervínculo o convertirlo en texto "normal". La otra instrucción la puedes quitar o convertirla en comentario anteponiéndole un apóstrofo '
Un saludo.


Fernando Arroyo
MS MVP - Excel