MISSING Reference of xlam

[ImranBhatti]

Hi

In one of my workbook. I have referenced an xlam addin. Now if I change (which is necessary for some reasons) the location of the workbook I face a MISSING myxlam addin in the tools>References. I want my workbook to completely delete the reference while colosing and re-reference it while opening from the path under the variable PluginPath.

I am successful to reference from the new path with. But I am unable to completely remove from the references windows.

I am using the below code currently

Sub AddPlugin()
Dim RefName as string
Dim PluginPath as string
Dim X as interger

RefName=myaddinName
PluginPath=path to myaddin

                     With ActiveWorkbook.VBProject.References
                         For X = .Count To 1 Step -1
                             If .Item(X).Name Like RefName Then
                                 .Remove .Item(X)
                             End If
                     Next
                     End With
    End If
End Sub

But not working .After changing the location it leaves a MISSING infront of the name of addin

What am I missing

Help would be greatly appreciated

Best Regards
Imran Bhatti

[xlnitwit]

Is the 'MISSING' reference still checked?

[ImranBhatti]

Yes the MISSING REFERENCE IS STILL CHECKED.

[xlnitwit]

What's the full code? I assume you have some code to correct the path and also an error handler as you didn't mention any errors while running the code above?

Do you really need the reference to the .xlam? If so, why do you need to move it?

[ImranBhatti]

If IsPluginOpen = True And Not ActiveWorkbook.Name Like "*Template*" Then
   If InStr(1, VBA.LCase(ActiveWorkbook.Keywords), "completed") Or InStr(1, VBA.LCase(ActiveWorkbook.Keywords), "imported") Or _
               InStr(1, VBA.LCase(ActiveWorkbook.Keywords), "cancelled") Then
        If ErrN = 0 Then
        MBAEssentials.PluginInstance = MBAEssentials.PluginInstance - 1
            With ActiveWorkbook.VBProject.References
                  For X = .Count To 1 Step -1
                      If .Item(X).Name Like RefName Then
                          .Remove .Item(X)
                          'Excel.Workbooks("TaskPlugin.xlam").Close False
                      End If
              Next
              End With
    End If
End If
End If

1) Yes I set the path at runtime towords the addin. using thisworkbook.path and then concatenating the rest of the path.
I have to move the workbook and not the addin. As the workbook changes its position

[xlnitwit]

Oh, I misunderstood- I thought you were moving the add-in. Why does moving the workbook cause an issue with the add-in? Are you moving it to another computer that does not have access to the add-in location? And, again, why do you need to set a reference to the add-in's project?

[ImranBhatti]

There is a shared folder in the dropbox named TaskPlugin wherein the AddIn resides (and of course the users are not on the same network. The name of the AddIn as a file is "TaskPlugin" but in the references list it appears as "CashBookLink"
Every colleague across Pakistan is using the same AddIn.When they complete their work and save their workbook that should remove the Addin Reference So that when opening that workbook at Head Office should load the same plugin but from the path of the Head Office PC. But when the workbook is opened at head office the compile error occurs higlighting the Environ$("username") line. I tried using VBA.Environ and Environ("username")& etc but the reason is the plugging is "with a capital MISSING still there (ticked ) in the references and I have to first spend 5 to 7 minutes to uncheck that reference and then manually referencing the same addin from my pc.



EDIT: Also tried http://www.vbaexpress.com/kb/getarticle.php?kb_id=272. But no luck.