سلام
چون مشکل شما خیلی بستگی به ویندوز و ورژن آفیس و این مسائل داره به همین دلیل تست کردنش هم خیلی سخته. مجبوریم نمونه کد بدیم تا شما تست کنید.
کد زیر رو بجای کد خودتون استفاده کنید ببینید حل میشه یا نه :
On Error Resume Next
Dim ref As Variant, i As Long
For i = Application.VBE.ActiveVBProject.References.Count To 1 Step -1
Set ref = Application.VBE.ActiveVBProject.References.Item(i)
If ref.IsBroken = True Then
Application.VBE.ActiveVBProject.References.Remove ref
End If
Next i
پاسخ با نقل قول