VBA fetch hyperlink address in the activesheet

Sub FetchHyperLinks()
 Dim HyperLinks As Hyperlink
 For Each HyperLinks In ActiveSheet.HyperLinks
 HyperLinks.Range.Offset(0, 2).Value = HyperLinks.Address
 Next
 End Sub