Private Sub Workbook_Open() AddIns.Add FileName:=ThisWorkbook.FullName AddInTitle = "title" Application.EnableEvents = False AddIns(AddInTitle).Installed = True Application.EnableEvents = True End Sub