Hi Bill!
I call the following from a Workbook_Open event macro in my Addin:
Sub AnalysisToolPak_Exists()
Dim Item As AddIn
Dim AnalysisToolpak As Boolean
AnalysisToolpak = False
For Each Item In AddIns
If Item.Name = "ATPVBAEN.XLA" Then AnalysisToolpak = True
Next Item
If AnalysisToolpak = False Then
Analysis_ToolPak_Not_Present.Show
End If
AddIns("Analysis Toolpak").Installed = True
AddIns("Analysis ToolPak - VBA").Installed = True
End Sub
I'll not pretend that it is not without faults and improvement
suggestions are more than welcome.
--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.