Try it with an On Error trap control:

Sub TryNow()
MsgBox AddInInstalled("Analysis Toolpak")
MsgBox AddInInstalled("Fred")
End Sub

Private Function AddInInstalled(argName As String) As Boolean
'return true if an addin is installed:
Dim myName As String
AddInInstalled = False
On Error GoTo NotInstalled
myName = AddIns(argName).Name
AddInInstalled = AddIns(argName).Installed
NotInstalled:
End Function


HTH,
Bernie
MS Excel MVP


"XP" wrote in message
...
Hi Bernie and thanks.

That is the line where the error occurs, however your suggestion still fails
to prevent a subscript error if a "False" reply is generated...

Any other suggestions?

"Bernie Deitrick" wrote:

Is the error on the line

If AddIns(argName).Installed = True Then

If so, then try:

If cBool(AddIns(argName).Installed) = True Then


HTH,
Bernie
MS Excel MVP


"XP" wrote in message
...
In Office 2007, I'm using the following function to determine whether an
Add-in is installed, but if the answer is "False", rather than false, I get
"Subscript out of range" error. Any idea what I'm doing wrong? How can I get
this to run right?

Private Function AddInInstalled(argName As String) As Boolean
'return true if an addin is installed:
If AddIns(argName).Installed = True Then
AddInInstalled = True
Else
AddInInstalled = False
End If
End Function

Thanks in advance...