Isso funcionou para mim sem adicionar manualmente a referência:
Private Sub Workbook_Open()
Dim success As Boolean
Dim myAddIn As AddIn
' Load and install new XLAM
Set myAddIn = AddIns.Add(Filename:=ActiveWorkbook.Path & "\path\to\myAddin.xlam")
myAddIn.Installed = True
' Load known XLAM
For Each myAddIn In AddIns
If myAddIn.Name = "myAddin.xlam" Then
myAddIn.Installed = False
myAddIn.Installed = True
End If
Next
Call AddReference(ActiveWorkbook.Path & "\path\to\myAddin.xlam")
End Sub
Eu lutei porque o AddIns.Add precisa de um caminho absoluto ... Mas parece funcionar!
Editar:
Eu também precisava usar e ligar:
Sub AddReference(AddInPath As String)
ThisWorkbook.VBProject.References.AddFromFile (AddInPath)
End Sub
Fonte:
link