Sub test()

Dim str As String

str = Sheets(1).Range("A1").Hyperlinks.Item(1).Address

MsgBox str

End Sub

Option Explicit

Sub GetHyperLinks()

Dim str As String
Dim intLastRow As String
Dim sh As Worksheet
Dim i As Integer

Set sh = Sheets(1)

intLastRow = sh.Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To intLastRow
    str = Sheets(1).Cells(i, 1).Hyperlinks.Item(1).Address
    Sheets(1).Cells(i, 2) = str
Next

End Sub