Disappearing Addin List

[Giordano Bruno]

I have workbook which automatacally 'installs' an addin, i.e. ticks the box.

When I open the workbook without Excel running, the code fails to install the addin. When I then use Tools > Addins, the panel of addins is completely blank.

I can only restore the addins list by closing Excel and reopening it.

 

[Giordano Bruno]

Here is the reduced code which produces the problem.

Private Sub Workbook_Open()
Dim AddinTitle As String
AddinTitle = Sheets("PettyCash").Range("A1").Value
On Error GoTo NotReady

If AddIns(AddinTitle).Installed = True Then ' THESE 3 LINES CREATE THE PROBLEM
MsgBox "Yes"
End If

NotReady:
End Sub

I can open this workbook from Explorer with no difficulty. If I open it from a hyperlink in Word and Excel is not running, The workbook opens, but Tools>Addins shows no addins.

If I remove the three problem rows of code, this problem never occurs.