You can attach a file. Click go Go Advanced button in lower right of a reply. Click the Manage Hyperlinks link below the reply box.
As I said, I don't know if you are using formula or link method.
For link method:
Sub test()
ChangeBaseHyperlinks "http://rrwebsvr/", "http://cottwebsvr/"
End Sub
Sub ChangeBaseHyperlinks(oldBase As String, newBase As String)
Dim h As Hyperlink, sht As Worksheet
Dim Len1 As Integer
Len1 = Len(oldBase)
For Each sht In Worksheets
For Each h In sht.Hyperlinks
If oldBase = Left(h.Address, Len1) Then
'h.Address = newBase & Right(h.Address, Len(h.Address) - Len1) 'memory overflow
If oldBase = Left(h.Range.Value, Len1) Then
h.Range.Value = newBase & Right(h.Address, Len(h.Address) - Len1)
End If
sht.Hyperlinks.Add Anchor:=h.Range, Address:= _
newBase & Right(h.Address, Len(h.Address) - Len1)
End If
Next h
Next sht
End Sub
Sub test2()
ChangeSheetBaseHyperlinks "http://rrwebsvr/", "http://cottwebsvr/"
End Sub
Sub ChangeSheetBaseHyperlinks(oldBase As String, newBase As String)
Dim h As Hyperlink, sht As Worksheet
Dim Len1 As Integer
Len1 = Len(oldBase)
Set sht = ActiveSheet
For Each h In sht.Hyperlinks
If oldBase = Left(h.Address, Len1) Then
'h.Address = newBase & Right(h.Address, Len(h.Address) - Len1) 'memory overflow
If oldBase = Left(h.Range.Value, Len1) Then
h.Range.Value = newBase & Right(h.Address, Len(h.Address) - Len1)
End If
sht.Hyperlinks.Add Anchor:=h.Range, Address:= _
newBase & Right(h.Address, Len(h.Address) - Len1)
End If
Next h
End Sub
Bookmarks