Массовое открытие гиперссылок в браузере

Sub OpenHyperlinksInBrowser()
    ' macro to open hyperlinks in default browser
    ' © 2022 ExcelVBA.ru (modified for Word)
    On Error Resume Next
    Dim hl$, coll As New Collection, msg$, link, i&
 
    ' iterate through all hyperlinks in the selection
    For Each link In Selection.Hyperlinks
        hl$ = link.Address
        If hl$ Like "http*://?*.?*" Then coll.Add hl$
        If coll.Count > 20 Then Exit For ' limit to 20 hyperlinks
    Next link
 
    If coll.Count > 6 Then ' ask for confirmation if many links are selected
        msg$ = "Are you sure you want to open " & coll.Count & " links in the browser?"
        If MsgBox(msg$, vbDefaultButton2 + vbOKCancel) = vbCancel Then Exit Sub
    End If
 
    For Each link In coll ' iterate through the collected hyperlinks
        CreateObject("WScript.Shell").Run link ' open the link in the default browser
    Next
End Sub