'In my free "Math Practice" workbook, I have the user load the add-in...
'ThisWorkbook module...
Private Sub Workbook_Open()
'Jim Cone - San Francisco, USA - March 2007
'
http://www.realezsites.com/bus/primitivesoftware
'Checks for the Analysis ToolPak. Calls IsItOpen sub.
On Error GoTo MakeNoise
If IsItOpen("FUNCRES.XLA") = False Then
Application.Cursor = xlDefault
MsgBox "The Analysis ToolPak add-in is required." & vbCr & _
"Go to the Tools menu and select Add-Ins. " & vbCr & _
"Checkmark... Analysis ToolPak.", vbInformation, "Math Practice"
End If
Exit Sub
MakeNoise:
Beep
Resume Next
End Sub
'--
'Standard module...
Function IsItOpen(ByRef strName As String) As Boolean
'Called by the Workbook_Open event.
'Checks for the Analysis ToolPak).
On Error Resume Next
Dim WB As Excel.Workbook
Set WB = Excel.Workbooks(strName)
IsItOpen = (Err.Number = 0)
Set WB = Nothing
End Function
--
The "Math Practice" workbook is available upon direct request to
those with a real name and geographic location.
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)
"Secret Squirrel"
wrote in message
I'm using some formulas that have to be used with the addin "Analysis
Toolpak". I have users that use versions 2000, 2003, & 2007. How do I get
this addin to automatically load with my file? I've had to go around and load
that addin on everyone's pc. Is there an easier way?
