RunTime Error-:object library not registered

[nithinkm]

Hi

Im using this piece of code to remove Missing references. But it shows error on this. The error is
"RunTime Error-'2147319779(8002801d)'bject library not registered"

Tyhe error shows on "ThisWorkbook.VBProject.References.Remove theRef"
code
====
Dim theRef As Variant, i As Long

For i = ThisWorkbook.VBProject.References.Count To 1 Step -1
Set theRef = ThisWorkbook.VBProject.References.Item(i)
If theRef.isbroken = True Then
ThisWorkbook.VBProject.References.Remove theRef
End If
Next i

If Err <> 0 Then
Call MakeMessages("A missing reference has been encountered!You will need to remove the reference manually", "Reference Alert", vbCritical)

End If

Please help
Thanks in advance

 

[BrianB]

This code runs, but I do not know if it does what it is supposed to do.
To test it properly I would need to introduce some errors - which I do not have time for.

Sub UNTESTED()
    Dim theRef As Variant, i As Long
    On Error Resume Next            ' ADDED LINE
    '-------------------------------------------------------------------------
    '- loop
    For i = ThisWorkbook.VBProject.References.Count To 1 Step -1
        Set theRef = ThisWorkbook.VBProject.References.Item(i)
        If theRef.isbroken = True Then
            ThisWorkbook.VBProject.References.Remove theRef
            '-----------------------------------------------------------------
            '- CHECK FOR ERROR
            If Err.Number <> 0 Then
                rsp = MsgBox(theRef.Description & _
                    "A missing reference has been encountered!You will need to remove it manually", _
                    "Reference Alert", vbCritical)
            End If
            '------------------------------------------------------------------
        End If
    Next i
    '--------------------------------------------------------------------------
    MsgBox ("Done")