是否可以检查Excel中的超链接是否正常工作？

Sub CheckHyperlinks()
    Dim ws As Worksheet
    Dim hl As Hyperlink
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历工作表中的每个超链接
        For Each hl In ws.Hyperlinks
            ' 检查超链接的地址是否有效
            If Not HyperlinkIsValid(hl) Then
                MsgBox "Invalid hyperlink found: " & hl.Address
            End If
        Next hl
    Next ws
End Sub

Function HyperlinkIsValid(hl As Hyperlink) As Boolean
    On Error Resume Next
    ' 尝试访问超链接的地址
    hl.Follow
    ' 检查是否发生错误
    HyperlinkIsValid = (Err.Number = 0)
    On Error GoTo 0
End Function