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

[atf1379]

سلام بر اساتید
اگر در قسمت رفرنس ها رفرنسی باشد که در حالت 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

با تشکر

[mazoolagh]

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

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

[atf1379]

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

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

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

[mazoolagh]

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

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