Function textH(oCell) As String
Dim s$
On Error GoTo Exit_
    s = oCell.Hyperlinks( 1 ).Address
    If Len(s) >  0  Then textH = s
    textH = "Результ епа мать"
Exit_:
End Function

Sub GetUsedRanges()
    Dim wsh As Worksheet
    Dim rng As Range
    Dim s As String
    
    s = ""
   ' For Each wsh In ThisWorkbook.Worksheets
       ' For Each rng In wsh.UsedRange.Cells
        For Each rng In Worksheets( 1 ).UsedRange.Cells
            rng.Value = rng.Value & textH(rng.Value)
        Next rng
   ' Next wsh

End Sub