Tom,
You're my hero if you can explain what I missed in the following code. On
Set wbMyAddin line, user is getting error 1004: analys32.xll could not be
found....
Doing F8 to step thru shows error on preceding Set command is 9 (not open).

Sub AddinTest()
' Add and install this addin
' On Error Resume Next ' turn off error checking
Set wbMyAddin = Workbooks(AddIns("Analysis ToolPak").Name)
lastError = Err
On Error GoTo 0 ' restore error checking
If lastError < 0 Then ' the add-in workbook isn't currently open.
Manually open it.
Set wbMyAddin = Workbooks.Open(AddIns("Analysis ToolPak").FullName)
End If
End Sub





"Tom Ogilvy" wrote:

Sub BBBB()
If AddIns("Analysis ToolPak").Installed = False Then
MsgBox "Analysis ToolPak is not installed"
End If
End Sub

Worked fine for me as did
? application.AddIns("Analysis Toolpak").Name
ANALYS32.XLL


--
Regards,
Tom Ogilvy

"hcova" wrote in message
...
I am trying to verify if the Analysis Tollpak is installed with the
following
sentence:

If AddIns("Analysis ToolPak").Installed = False Then
MsgBox "Analysis ToolPak is not installed"
End If

The problem is that I receive a error when I run this code. In the first
line, VBA stops telling me "Subindex out of interval", making reference to
the string argument.
If I replace the argument of the AddIns property by for example an 1, I
don´t receive the error box. It works!!. However, if you check the online
help there are many examples where the AddIns property can accept strings
and
numbers as argument.
Where I am making the error?