find and replace hyperlinks

[greg]

Hello,
I would like to search on the address of a hyperlink.
and then replace it

however it does not seem the find and replace will fine the hyperlink
address.

is there a way to do this?

thanks

 

[Dave Peterson]

Take a look at David McRitchie's site:
http://www.mvps.org/dmcritchie/excel/buildtoc.htm
look for:
Fix Hyperlinks (#FixHyperlinks)

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[greg]

thanks,
i though maybe there was something built in. Guess not


i did throw some code to do a little:
Sub xxx()

Dim x As Excel.Worksheet

Set x = Excel.ActiveSheet

For i = 1 To x.Hyperlinks.Count

If x.Hyperlinks(i).Address = "http://www.yahoo.com/" Then

x.Hyperlinks(i).Address = "www.google.com"

End If

Next i

End Sub

 

[info]

You can try ReplaceMagic ExcelOnly edition because it will cover
extended search&replace in Excel documents and also what is more
interesting you do not need to open any of files because they will be
opened in hidden Excel.

Site address is http://www.replacemagic.com.

Good luck,
Oliver