How to extract data when there are duplicates

Gilgamesh1964 

The Range property of a hyperlink represents the cell that contains the hyperlink.

    Dim LinkCount As Long
    Dim URL As String
    dim Rng as Range
    For LinkCount = 1 To ActiveSheet.Hyperlinks.Count
        URL = ActiveSheet.Hyperlinks(lngLinkCount).Address
        Set Rng = ActiveSheet.Hyperlinks(lngLinkCount).Range
        ' If you want to know the cell address, use Rng.Address
    Next LinkCount