Insert Picture in a Cell UDF

[Admin]

Hi,

You could try this function to extract the hyperlink address.

Function GETADDRESS(ByRef HypRange As Range) As String
    On Error Resume Next
    GETADDRESS = HypRange.Hyperlinks.Item(1).Address
End Function

and call the function like

=INSERTPICTURE(GETADDRESS(A2))