Can't remove problem reference
 

I'm trying to remove a reference which is marked as Missing on any machine
except my laptop (where the workbook was created).

Using the code below, I can identify all the correct references, but not the
problem one, so I can't remove it.

Set VBProj = Workbooks("II Checklist.xlt").VBProject
On Error Resume Next
For Each chkRef In VBProj.References
Debug.Print chkRef.Name
If chkRef.Name = "RefEdit" Then
VBProj.References.Remove chkRef
End If
Next

On my laptop the Debug.Print line produces the following in the Immediate
window:

Excel
stdole
Office
MSForms
RefEdit

On another machine, the output misses out the last line (RefEdit). The
problem is that, as I can't call up the name of the reference, I can't
delete it.

Any ideas, anyone?

TIA

Ian

Can't remove problem reference
 

I've bitten the bullet on this one and emailed everyone with replacements
for the faulty workbook. I wish I could have figured out what the problem
was, though. I hate to have to give up!!

Ian

"Ian" wrote in message
...
I'm trying to remove a reference which is marked as Missing on any machine
except my laptop (where the workbook was created).

Using the code below, I can identify all the correct references, but not
the problem one, so I can't remove it.

Set VBProj = Workbooks("II Checklist.xlt").VBProject
On Error Resume Next
For Each chkRef In VBProj.References
Debug.Print chkRef.Name
If chkRef.Name = "RefEdit" Then
VBProj.References.Remove chkRef
End If
Next

On my laptop the Debug.Print line produces the following in the Immediate
window:

Excel
stdole
Office
MSForms
RefEdit

On another machine, the output misses out the last line (RefEdit). The
problem is that, as I can't call up the name of the reference, I can't
delete it.

Any ideas, anyone?

TIA

Ian