View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.links
Rebecca Rebecca is offline
external usenet poster
Posts: 106
Default Mass edit Hyperlinks

Thanks, Bill. Unfortunately I need to resolve this issue sooner than later. I
was wondering if I could get some help not using VBA?
I need to edit hyperlinks en masse as well. Can I do that using windows
dialogue boxes in Excel?

"Bill Manville" wrote:

TR Young wrote:
the routine runs correctly, but the hyperlinks
aren't updating

Presumably the stFind you specified is not matching the start of the
hyperlink addresses you wanted to change. Could be a case-sensitivity
issue. Try:
If InStr(LCase(H.Address), LCase(stFind)) = 1 Then

If that still doesn't do it, get it to tell you what the Address is
that it is finding:

For Each H In oSheet.Hyperlinks
Debug.Print H.Address
If InStr(LCase(H.Address), LCase(stFind)) = 1 Then
H.Address = stReplace & Mid(H.Address, Len(stFind) + 1)
End If

I assume you are remembering to save the modified workbook having made
the changes<g.
Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup