I can never remember which way they lean <g

--
Regards,
Tom Ogilvy


"Pieman" wrote:

Tom,

Thanks very much for that the code worked (with a slight mod); specifing the
server name with forward slash's ( / ) failed to update the links but simply
changing these to back slash's ( \ ) as per below works at treat...

Sub ChangeLink()
Dim hlink As Hyperlink
Dim s As String
For Each hlink In ActiveSheet.Hyperlinks
s = hlink.Address
If InStr(1, s, "\\Server1", vbTextCompare) Then
s = Replace(s, "\\Server1", "\\Server2")
hlink.Address = s
End If
Next
End Sub

Thaks very much for the quick response, you have saved me a whole load of
hassle.