Change Hyperlink addresses in a worksheet

's Computer Specifications

How can I change the address of a hyperlink without having to change the
hyperlinks individually.

I have a worksheet with a few 1000 hyperlinks of the format J:\......... and
want them all changed to M:\.........

Is there an quick way of doing this in one go

's Computer Specifications

Sub hyper_changer()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
s = h.Address
s2 = Replace(s, "J:\", "M:\")
h.Address = s2
Next
End Sub

--
Gary''s Student - gsnu200761

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Change ALL Hyperlink Addresses in a Column?	Terry	Microsoft Excel Programming	8	17th Aug 2009 11:23 PM
How Can I Globally Change Hyperlink Addresses?	Terry	Microsoft Excel Misc	1	15th Aug 2009 03:50 PM
How do I make a global change of Hyperlink addresses?	Rick	Microsoft Excel Misc	1	16th Jan 2009 04:31 PM
Hyperlink Question -- Change in Worksheet Name?	BG	Microsoft Excel Worksheet Functions	1	23rd Mar 2008 02:39 PM
hyperlink server addresses change: the address of the site is not valid	connie	Microsoft Excel Misc	0	6th Oct 2003 08:54 PM