Para eliminar todos los hipervínculos de una hoja activa, el siguiente código es una opción para poder realizarlo:
Eliminar_hipervinculos ()
Do Until ActiveSheet.Hyperlinks.Count = 0
ActiveSheet.Hyperlinks.Delete
Loop
End Sub
Cabe resaltar que solo se elimina el link, mas no el texto que hacía este vínculo.
Ejemplo:
Elaborado por: Carlos Solórzano
Publicaciones relacionadas:
Eliminar las hojas generadas con doble click en una tabla dinámica
Ocultar todas las hojas excepto la activa
Borrar todas las hojas menos la activa
Crear una nueva hoja por cada elemento de un Autofiltro
Eliminar tíldes con Macros
Eliminar Validación de datos con macros
Crear un Archivo por cada hoja de Excel
Desproteger una hoja al abrir un libro con Macros
07/05/2014 at 5:39 am
Funciona perfecto!
Muchas gracias!!