This little macro opens selected URLs in a Word document.... until it hits a dead link.
Then it reports "Run-time error '4198': Command failed" and stops.
Please could you tell me how to amend the code so that dead links are skipped, and the macro continues to open remaining valid links.
(I do not need the act of skipping to be reported or approved. It's acceptable simply to ignore dead links).
Many thanks
Sub OpenLinks() Dim alink As Hyperlink For Each alink In Selection.Hyperlinks alink.Follow '<<<<<<<<<<<<<<<<<<<<<<Run-time error '4198': Command failed Next alink End Sub