Macro to extract links in excel

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub

Comments

Popular posts from this blog

Garden Tourism festival - New Delhi

Arab World - countries, map and rulers

Muslim Populace around the world