Ubicar celdas que contienen hipervínculos

Uno de mis lectores, Daniel, me pregunta como ubicar celdas que contienen hipervínculos. Ya hemos visto que Excel nos permite ubicar todo tipo de celdas de acuerdo a sus características usando Ir A-Especial (F5)

Como puede apreciarse, no existe la opción de seleccionar celdas que contengan hipervínculos.
Como ya habrán presentido, podemos hacerlo creando una macro que haga la tarea.
La idea es seleccionar el rango donde pueden encontrarse las celdas con hipervínculos y correr la macro. La macro examina cada una de las celdas del rango y si contiene un hipervínculo la selecciona.

El código es

Sub select_hyperlink()
    Dim rngCell As Range, strCells As String
  
    strCells = ""
  
    For Each rngCell In Selection
        If rngCell.Hyperlinks.Count = 1 Then
            strCells = strCells & rngCell.Address & ","
        End If
    Next rngCell
  
    If Len(strCells) < 2 Then Exit Sub
  
    strCells = Left(strCells, Len(strCells) - 1)
    Range(strCells).Select
  
End Sub

Lo más conveniente es copiar el código en un módulo del Personal.xls (para poder usarlo en todo cuaderno abierto de Excel) y agregarle un atajo de teclado, por ejemplo Ctrl+Mayús+H