Ошибка загрузки DLL при удалении отсутствующей ссылки

Question

Мне нужно исправить (с помощью кода VBA Excel) ошибку, возникающую из-за отсутствия ссылки.Я использую этот код, но скрипт останавливается с ошибкой «Ошибка при загрузке DLL», когда находит недостающую ссылку и пытается удалить ее.

Sub RemoveReferences()
Dim VBAEditor As VBIDE.VBE
Dim vbProj As VBIDE.VBProject
Dim chkRef As VBIDE.Reference

Set VBAEditor = Application.VBE
Set vbProj = ActiveWorkbook.VBProject

For Each chkRef In vbProj.References
    If chkRef.IsBroken Then
    'MsgBox "Trovata una libreria mancante. Tento la sistemazione."
        vbProj.References.Remove chkRef
    End If
Next

Set vbProj = Nothing
Set VBAEditor = Nothing
End Sub

Скрипт возвращает «Ошибка при загрузке DLL» в строкеvbProj.References.Remove chkRef.У вас есть идея, чтобы исправить эту ошибку?Я просто активирую «Доверительный доступ к режиму объекта проекта VBA».

Это скриншот ошибки. Error