حذف آیتم Missing از رفرنس ها

سلام بر اساتید
اگر در قسمت رفرنس ها رفرنسی باشد که در حالت MIssing باشد چگونه میتوان این رفرنس را حذف کرد ؟
از کد زیر استفاده کردم ولی جواب ندارد:

 ' On Error Resume Next

  Dim r As Reference

  For Each r In Application.References

    If r.IsBroken Then

        References.Remove r

    End If

  Next r

با تشکر

سلام و روز خوش
کد بخودی خود درسته و مشکلی نداره،

اون On Error Resume Next هم گرچه اینجا کامنت شده،
ولی مطلقا نباید استفاده بشه!

نقل قول:

---

نوشته شده توسط mazoolagh

سلام و روز خوش
کد بخودی خود درسته و مشکلی نداره،

اون On Error Resume Next هم گرچه اینجا کامنت شده،
ولی مطلقا نباید استفاده بشه!

---

سلام
تشکر استاد !

سلام دوباره
یادم رفت بپرسم که مشکل شما حل شد یا نه،
چون اصولا نباید مشکلی باشه.

ولی یک احتمال میدم که شاید شما این کد رو trace کرده باشین.