Разрыв ТОЛЬКО ошибочных связей в excel - VBA

Формулировка задачи:

Добрый день! Нужна ваша помощь. Есть много файлов. В них есть ссылки-привязки связей на другие книги. Раньше эти связи были нужны. А теперь часть книг были удалены(т.к. перестали быть нужными данные из них). И теперь при открытии файла выдаёт ошибку при обновлении связей. И приходится в ручную разрывать связи с теми книгами , которые были удалены, и теперь не существуют. Файлов много, поэтому долго это в ручную удалять. Можно ли как то сделать макрос и с помощью него удалять испорченные связи с теми удалёнными книгами. А что бы работающие связи оставались на месте! Заранее большущее спасибо!

Решение задачи: «Разрыв ТОЛЬКО ошибочных связей в excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test() 'Microsoft Excel XP
    iArr = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsArray(iArr) Then Exit Sub
       
    For Each tmp In iArr
        If ActiveWorkbook.LinkInfo(tmp, xlLinkInfoStatus) = xlLinkStatusMissingFile Then
           ActiveWorkbook.BreakLink tmp, xlExcelLinks
        End If
    Next
End Sub