VBA Macro for following selected Hyperlinks in Excel

modHyperlink.bas

Option Explicit

Public Sub OpenSelectedHyperlinks()
    On Error GoTo ErrorHandler
    
    Dim Cell As Object
    For Each Cell In Selection
        DoEvents
        
        Call OpenHyperlink(Cell)
    Next Cell
    
    GoSub Finally
    Exit Sub
    
Finally:
    Return
    
ErrorHandler:
    Debug.Print Err.Number; Err.Description
    Stop
End Sub

Public Sub OpenHyperlink(ByVal Cell As Range)
    On Error GoTo ErrorHandler
    
    Dim link As String: Let link = Cell.Value2
    Call ActiveWorkbook.FollowHyperlink(link)
    
    GoSub Finally
    Exit Sub
    
Finally:
    Return
    
ErrorHandler:
    Debug.Print Err.Number; Err.Description
    Stop
End Sub