Hello All,
What a great site...found it today!

Anywho, I have a question about creating a macro for checking a hyperlinks that are valid or invalid. I have the code that I found on here but its saying that all my links are valid but I know that this is not true. Below is the code. The links are either being directed to a sharepoint file or a mapped drive. Is there a way to check this? I have over a 1k links in one file. This would sure help out a ton...


Sub TestHLinkValidity()

Dim rRng As Range
Dim fsoFSO As Object
Dim strFullPath As String
Dim cCell As Range

Set fsoFSO = CreateObject("Scripting.FileSystemObject")
Set rRng = Selection
For Each cCell In rRng.Cells
If cCell.Hyperlinks.Count > 0 Then
strFullPath = ActiveWorkbook.Path & "\" & cCell.Hyperlinks(1).Address
If fsoFSO.FolderExists(strFullPath) = False Then
cCell.Interior.ColorIndex = 3
Else
cCell.Interior.ColorIndex = 0
End If
End If
Next cCell
End Sub