Get hyperlink with place in document from cell

[danped1]

Hi,
I have aspreadsheet with lots of hyperlinks in and I want to extract the hyperlink using a custom function. I have found this code which does what I want for a pure hyperlink e.g. to another document or web site. But it doesn't work for hyperlinks to a specific tab in a wokbook. i.e. if the user has created a place in this document element to the hyperlink it doesnt work. How could I make this work for these type of hyperlinks also?

Function GetAddress(rng As Range)
    GetAddress = rng.Hyperlinks(1).Address
End Function

Thanks,
Dan

[JosephP]

perhaps

Function GetAddress(rng As Range)
    With rng.Hyperlinks(1)
        GetAddress = .Address & .SubAddress
    End With
End Function

[tgsekhar]

Hyperlinks(1).SubAddress will give you the local address within the worksheet.

[danped1]

Awsome, Thanks guys that works a treat.