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

Hi Rick


Try this

hlink.Parent.Address



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Rick S." <(E-Mail Removed)> wrote in message news:A9AEF8F6-7870-42B3-BD0E-(E-Mail Removed)...
>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
>

Parent! I never listend to my parents! LOL

Thank you!

--
Regards

Rick
XP Pro
Office 2007



"Ron de Bruin" wrote:

> Hi Rick
>
>
> Try this
>
> hlink.Parent.Address
>
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Rick S." <(E-Mail Removed)> wrote in message news:A9AEF8F6-7870-42B3-BD0E-(E-Mail Removed)...
> >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
> >
>