sujittalukde
05-23-2008, 07:02 AM
I am using the following code install Analysis toolpak adin, if not installed and calling the same on WB open event:
Sub InstalAddin()
If AddIns("Analysis ToolPak").Installed = False Then
AddIns("Analysis ToolPak").Installed = True
End If
End Sub
Now if the addin feature is not installed on the computer the code throws an error (Image1 attached)
Then I have to move to tools\Addins\ ticked Analysis toolpak
Then it asks for installing the addin feature (Image2 attached)
Now I want to know how can I modify the ode so that if the addin feature is not at all installed on the macjine the code will install the feature and that it will not throw an error?
Sub InstalAddin()
If AddIns("Analysis ToolPak").Installed = False Then
AddIns("Analysis ToolPak").Installed = True
End If
End Sub
Now if the addin feature is not installed on the computer the code throws an error (Image1 attached)
Then I have to move to tools\Addins\ ticked Analysis toolpak
Then it asks for installing the addin feature (Image2 attached)
Now I want to know how can I modify the ode so that if the addin feature is not at all installed on the macjine the code will install the feature and that it will not throw an error?