Extract Hyperlink Address

[jj554]

Hi there,
I am looking for a way to extract the address of a hyperlink stored in a cell.

This following code fills the Public screenShot with the address of the selection when the user clicks 'OK':

ChDrive "C"
ChDir "C:\Users\Desktop\Screenshots\"
screenShot = Application.GetOpenFilename

And this fills the specified Range with the hyperlink on a button_Click event:

        If screenShot <> vbNullString Then
            sh1.Hyperlinks.add Anchor:=sh1.Range("EH20").Offset(i - 1, 0), _
            Address:=screenShot, TextToDisplay:="Screenshot"
        End If

My question is how do I fill screenShot with the address stored in the hyperlink in the specified cell?

ex:

screenShot = Range("EH20").Value
screenShot = Range("EH20").Hyperlinks

ect...

Thanks for the help!

[AlphaFrog]

Something like this...

screenShot = sh1.Range("EH20").Offset(i - 1, 0).Hyperlinks(1).Address

[jj554]

@AlphaFrog - Thanks! That's what I was aiming for.