Eliminar todos los hipervínculos de una hoja o libro con VBA

Problema

Necesitamos eliminar todos los hipervínculos de una hoja o de un libro de Excel.

Solución

1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
2. Copiamos la subrutina correspondiente, para una hoja o para todo el libro, en un módulo.

'Hoja activa
Sub EliminarHipervínculosHoja()
 ActiveSheet.Hyperlinks.Delete
End Sub

'Todo el libro
Sub EliminarHipervínculosLibro()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Hyperlinks.Delete
    Next ws
End Sub

3. Ejecutamos la subrutina: F5. No se puede deshacer la acción.
4. Los hipervínculos se habrán eliminado,

Entradas relacionadas

• Convertir texto de URL en enlaces activos
• Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel