Hyperlinks

  • Thread starter Thread starter DavidM
  • Start date Start date
D

DavidM

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
 
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
 
Sub CheckLinks()
Dim s as String, ans as Long
if Activecell.Hyperlinks.count > 0 then
s = Activecell.Hyperlinks(1).Address
ans = msgbox("hyperlink is " & vbNewLine & s & vbNewline _
& vbNewline & " Make a correction?", vbYesNo)
if ans = vbYes then
s = Left(s,7) & Right(s,len(s)-12)
ActiveCell.Hyperlinks(1).Address = s
end if
end if
activecell.offset(1,0).Select
End Sub
 
Thanks Don

Thanks Tom


Tom Ogilvy said:
Sub CheckLinks()
Dim s as String, ans as Long
if Activecell.Hyperlinks.count > 0 then
s = Activecell.Hyperlinks(1).Address
ans = msgbox("hyperlink is " & vbNewLine & s & vbNewline _
& vbNewline & " Make a correction?", vbYesNo)
if ans = vbYes then
s = Left(s,7) & Right(s,len(s)-12)
ActiveCell.Hyperlinks(1).Address = s
end if
end if
activecell.offset(1,0).Select
End Sub
Click to expand...
 
Back
Top