Abrir simultáneamente múltiples hipervículos en Excel

Problema

Queremos abrir simultáneamente múltiples hipervículos en Excel.

Solución

1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
2. Creamos la siguiente función en un módulo.

Sub Abrir_Hipervinculos()
    On Error Resume Next
    Dim hl As Hyperlink
    For Each hl In Selection.Hyperlinks
        hl.Follow
    Next hl
End Sub

3. Seleccionamos el rango de celdas que contiene los enlaces y presionamos Alt+F8.

4. Tecleamos Alt+F8 y presionamos Ejecutar.

Los enlaces se abrirán en el navegador predeterminado. Si alguna celda está vacía, contiene texto no reconocido como hipervínculo, o un hipervínculo no válido, los enlaces no se abrirán y no generará error pues hemos especificado On Error Resume Next.

Entradas relacionadas

• Convertir texto de URL en enlaces activos
• Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel
• Eliminar todos los hipervínculos de una hoja o libro con VBA
• Comprobar si una celda contiene un hipervínculo

Referencias

• VBA Express
• Microsoft Community