cell address of hyperlink

[Rick S.]

I have this code from one of you guru's (pretty sure it was Tom O.), but I do
not know how to get the cell.address of the hyperlink being tested.

'==========
Sub ChangeLink()
Dim hlink As Hyperlink
Dim s As String
Dim c As String

For Each hlink In ActiveSheet.Hyperlinks
s = hlink.Address 'is path of hyperlink doc.
If Left(s, 5) = "SPECS" Then
s = "=Hyperlink" & "(\\ENGINEERING\PRODUCTION\Qadocs\SPECS\)"
'add code to place new link in cell of hyperlink being tested
End If
Next
End Sub
'==========

All help is appreciated.

--
Regards

Rick
XP Pro
Office 2007

 

[Ron de Bruin]

Hi Rick


Try this

hlink.Parent.Address

 

[Rick S.]

Parent! I never listend to my parents! LOL

Thank you!

--
Regards

Rick
XP Pro
Office 2007