Public Function RepairReference() As Boolean
On Error GoTo err_RepairReference
    Dim rf As Reference, mGuid As String, mMajor As Long, mMinor As Long, i As Byte, flg As Boolean
    
    For i =  1  To Application.References.Count
        Set rf = Application.References(i)
        If rf.Name <> "Access" And rf.Name <> "VBA" Then
            flg = True
            mGuid = rf.Guid
            mMajor = rf.Major
            mMinor = rf.Minor
    
            Application.References.Remove rf
            DoEvents
            Application.References.AddFromGuid mGuid, mMajor, mMinor
        End If
    Next
    
    If flg Then Call SysCmd( 504 ,  16483 )
    
exit_RepairReference:
    Exit Function

err_RepairReference:
    MsgBox Err.Description, vbExclamation, ApplName
    Resume exit_RepairReference
    
End Function