one way
Sub edithyperlinks()
For Each c In Range("i1:i3")
c.Value = Left(c, 7) & "XXXX" & Right(c, Len(c) - 11)
Next
End Sub


--
Don Guillett
SalesAid Software

"DavidM" wrote in message
. uk...
Hi

I have a column of many web page hyperlinks is it possible to edit a
hyperlink with a macro to delete certain characters, like the 8 to 12th
characters. Instead of right clicking edit hyperlink, Then move to the
next, I then check this hyperlink if it needs to be changed I then run the
macro again.

Thanks in advance

Dave