Application VisualBasic Script

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