Боюсь битую ссылку не покажет ошибкой, если ее (ссылку) не обновить, а если обновить, то запросит обновить имя файла и при отсутсвии покажет #ССЫЛКА. Но при этом вся книга может пойти ошибками, если ссылается на эту ячейку.
Вот такой код:
Sub li()
aLinks = ThisWorkbook.LinkSources()
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
If Dir(aLinks(i)) = "" Then
y = Mid(aLinks(i), 1, InStrRev(aLinks(i), "\")) & "[" & Mid(aLinks(i), InStrRev(aLinks(i), "\") + 1)
For Each sh In ThisWorkbook.Worksheets
For Each cc In sh.UsedRange
If InStr(1, cc.Formula, y) > 0 Then cc.Interior.ColorIndex = 6
Next
Next
End If
Next
End If
End Sub
Закрасит все ячейки с битыми ссылками в желтый