Try this:

Sub ToolPakActivate()
Dim ai As Object
For Each ai In Application.AddIns
If UCase$(ai.Name) = "ANALYS32.XLL" Then
If Not ai.Installed Then ai.Installed = True
Exit For
End If
Next
If ai Is Nothing Then
MsgBox "Run setup to install the Analysis Toolpak"
End If
End Sub

Note the installed property indicated that the addin is LOADED.


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


mangesh_yadav wrote:


Yes, but this requires me to have the knowledge of what that particular
addin is called in different languages. I would like to have a language
independent method.

- Mangesh