Sub enableAddIn()
On Error Resume Next
myAddInName = "MYADDIN"
AddIns(myAddInName).Installed = True
Debug.Print Err.Number & " - " & Err.description
If Err.Number <> 0 Then
Set myAddIn = AddIns.Add(Filename:="C:\" & myAddInName & ".XLA", CopyFile:=True)
AddIns(myAddInName).Installed = True
End If
On Error GoTo 0
End Sub
should work...
cheers
Matt
|