حذف آیتم 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

با تشکر