Subscript error in 2007 when testing if Addin is installed
Thanks Dave and Bernie,
After trial and error, I also came up with something that works, FYI:
Private Function AddInInstalled(argAddInTitle As String) As Boolean
'return true if an addin is installed:
On Error GoTo xERR
If AddIns(argAddInTitle).Installed = True Then AddInInstalled = True
Exit Function
xERR: AddInInstalled = False
End Function
Thanks for your assistance.
"Dave Peterson" wrote:
This worked ok in xl2003:
Option Explicit
Private Function AddInInstalled(argName As String) As Boolean
AddInInstalled = False
On Error Resume Next
AddInInstalled = CBool(Application.AddIns(argName).Installed)
On Error GoTo 0
End Function
Sub testme()
MsgBox AddInInstalled("analysis toolpak")
MsgBox AddInInstalled("qwer")
End Sub
XP wrote:
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...
--
Dave Peterson
|