Check For Broken Hyperlink On Worksheet

[ipbr21054]

Hi,
On my worksheet in column P i have invoice numbers which are hyperlinked to where the pdf is saved on my pc.
Ive noticed this morning that selecting one or two of them i see a message like unable to open hyperlink.

Before i start to click every on some 250 cells is there a code that can advise if any & which are broken / unable to open.

Many Thanks

 

[ipbr21054]

If this help ive supplied the code which when you select the cell in question it hyperlinks it for you.

Can it be edited to just run through all the cells in column P & hyperlink them ?
Thanks

Sub hyperlink()

        Const FILE_PATH As String = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\"
    If ActiveCell.Column = Columns("P").Column Then
        If Len(Dir(FILE_PATH & ActiveCell.Value & ".pdf")) Then
            ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=FILE_PATH & ActiveCell.Value & ".pdf"
            MsgBox "HYPERLINK WAS SUCCESSFUL.", vbExclamation, "HYPERLINKING THE INVOICE NUMBER"
        Else
            ActiveCell.Hyperlinks.Delete
            MsgBox (FILE_PATH & ActiveCell.Value & ".pdf" & vbNewLine & vbNewLine & "FILE IS NOT IN FOLDER SPECIFIED, PLEASE CHECK PATH IS CORRECT"), vbCritical
        End If
    Else
        MsgBox "PLEASE SELECT AN INVOICE NUMBER.", vbExclamation, "HYPERLINKING THE INVOICE NUMBER"
    End If
End Sub