Editing Intra-Network Hyperlinks in a Spreadsheet

W

Winston

Thanks for your response. It looked good, but when we
tried it, no hyperlinks were changed. Could you please
review the below and let us know what you think might have
gone wrong?

Private Sub EditHyperlinks()
Dim c As Range
Dim Winston, Jennings As String
OldPc = "Winston"
NewPc = "Jennings"
For Each c In Range("A1:A2000")
x = InStr(1, c, Winston)
If x Then c.Value = Left(c, x - 1) & Jennings & Right(c,
Len c) - x - Len(Winston) + 1)
Next c
End Sub

Regards!
Winston
 
Top