Sub SelectHyper()
Dim rCell As Range, Rng As Range
    For Each rCell In ActiveSheet.UsedRange
        If rCell.Hyperlinks.Count > 0 Then
            If Rng Is Nothing Then
                Set Rng = rCell
            Else
                Set Rng = Union(Rng, rCell)
            End If
        End If
    Next
    If Not Rng Is Nothing Then Rng.Select
End Sub