Symbol Hyperlink

[SDW]

Hi
I have a sheet that has a col. of symbols (envelope shape) when you click
the symbol you launch activate the mailto: opening Outlook Express with the
persons email address already in
What I want to do is extract the mailto: hyperlink from each symbol which
are in A1-A55 within the sheet in another col.
I know I cannot attach the sheet here but if you want to see a graphic of
this go to :
http://www.ittravel.com.au/sample1.gif

Many thanks in advance

Stephen West
Gold Coast, Australia

 

[Ron de Bruin]

Try this macro SDW for the Activesheet

Sub testme02()
'Dave Peterson
Dim myShape As Shape
Dim myHyperlink As Hyperlink

For Each myShape In ActiveSheet.Shapes
Set myHyperlink = Nothing
On Error Resume Next
Set myHyperlink = myShape.Hyperlink
On Error GoTo 0
If myHyperlink Is Nothing Then
'do nothing
Else
With myShape.BottomRightCell
.Offset(0, 1).Value = myHyperlink.Address
ActiveSheet.Hyperlinks.Add anchor:=.Offset(0, 1), _
Address:=myHyperlink.Address
End With
End If
Next myShape
End Sub