NoNet hat mal dies irgendwo gepostet:
Dim r
If ThisWorkbook.Worksheets("VBA Verweise") Is Nothing Then
Sheets.Add
ActiveSheet.Name = "VBA Verweise"
For r = 1 To Application.VBE.ActiveVBProject.references.Count
If Application.VBE.ActiveVBProject.references(r).IsBroken Then _
Cells(r, 1) = "defekt"
Cells(r, 2) = Application.VBE.ActiveVBProject.references(r).Name
Cells(r, 3) = Application.VBE.ActiveVBProject.references(r).FullPath
Next
Columns.AutoFit
Wie krieg ich das in eine MsgBox?VG Jörg