How can I Identify Broken Hyperlinks?

[shae341]

Hello -
I have a very large spreadsheet identifying all of our company's controlled documents, including their Origination Date, Review Date, Hyperlink, Etc.

I am trying to ensure that all the hyperlinks are up-to-date.

Is there a way to identify any and all broken hyperlinks in the spreadsheet without having to click on each one individually?

Thanks a lot!
-Shae341

 

[Gary McMaster]

Maybe something like this?

Dim oLink As Hyperlink
Dim sFile As String

For Each oLink In ActiveSheet.Hyperlinks
    sFile = Dir(oLink.Address)
    If sFile = "" Then
        oLink.Parent.Interior.ColorIndex = 3
    End If
Next

Gary