Eliminar los hipervínculos de la hoja activa

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:

Ejemplo para eliminar links

Elaborado por: Carlos Solórzano