Sub Main()
      Dim Ref As Object
      With ThisWorkbook.VBProject
          For Each Ref In .References
              If Ref.isBroken Then Debug.Print "удалили " & Ref.Description: .References.Remove Ref
          Next Ref
          'Проверяем, подключена ли библиотека Excel
          For Each Ref In .References
              If Ref.Name = "Excel" Then Debug.Print "Все ок, можно запускать макрос": Check: Exit Sub
          Next Ref
          'Если нет, подключаем
          On Error Resume Next
          .References.AddFromGuid "{00020813-0000-0000-C000-000000000046}", 1, 7'Для 2010-го офиса
          If Err.Number <> 0 Then
              MsgBox "Не найдена библиотека Excel!", vbCritical: Exit Sub
          Else
              Debug.Print "Библиотеку нашли, подключили"
              Check
          End If
      End With
      Set Ref = Nothing
      On Error GoTo 0
End Sub

Sub all_libraries()
      Dim Ref As Object
      For Each Ref In ThisWorkbook.VBProject.References
          Debug.Print Ref.Name
          Debug.Print Ref.Description
          Debug.Print Ref.Guid
          'Debug.Print Ref.FullPath
          Debug.Print Ref.Major, " ", Ref.Minor
          Debug.Print "--------------------------------------"
      Next Ref
End Sub