Verweise des aktuellen Projektes ermitteln

Häufig möchte man wissen, welche Verweise in einem Projekt verwendet werden.
Z.B. wenn ein Makro auf einem anderen Rechner nicht funktioniert und Fehlermeldungen zurückliefert. Mit folgendem kleinen Makro wird für das aktuelle Projekt ActiveVBPRoject die Beschreibung der Verweise nacheinander in einer MessageBox ausgegeben.

1    Sub VBEVerweise()
2    For i = 1 To VBE.ActiveVBProject.References.Count
3        msg = msg & VBE.ActiveVBProject.References.Item(i).Description & vbCrLf 
4    Next i
5    antw = MsgBox(msg, vbInformation, "Auflistung der Verweise")
6    End Sub