Walt

Many thanks for coming back on this - can you confirm that the only method
to get the add-in to function prperly is to use the code

AddIns("Analysis ToolPak").Installed = True

as opposed to simply loading the file itself

I thought an add-in was basically the same as an ordinary file but part of
the add-ins grouping

THANKS

Tim



"Walt Weber" wrote in message
...
Hi Tim,

This is code I use within the auto_open routine.

On Error Resume Next 'LOAD & TEST SUCCESS OF LOAD OF
ANALYSIS TOOLPAC
AddIns("Analysis ToolPak").Installed = True
If AddIns("Analysis ToolPak").Installed = False Then
MsgBox "Excel's Analysis ToolPac could not be
loaded." & Chr(13) & _
"This usually means that Excel was installed
with the default settings." _
& Chr(13) & "The Analysis ToolPac includes some
spreadsheet functions used by this application." _
& Chr(13) & "To remedy the situation, it will be
necessary to load the Analysis ToolPac" _
& Chr(13) & "from the Excel installation CD." &
Chr(13) & _
Chr(13) & "This application will close now."
ThisWorkbook.Saved = True
Application.Quit
End
End If
On Error GoTo 0

Since I just pasted the code here, you'll need to adjust
for the word wrap.

Best Regards,
Walt

Hi Tim,

It would be a good idea to check out chapter 16, or at
least page 312 of "Excel 2002 VBA Programmer's Reference"
by Bullen, Green, Bovey & Rosenberg. It helps clarify
the difference between merely opening and installing an
AddIn.

Best Regards,
Walt

-----Original Message-----
Walt

Many thanks for coming back on this - can you confirm
that the only method
to get the add-in to function prperly is to use the code

AddIns("Analysis ToolPak").Installed = True

as opposed to simply loading the file itself

I thought an add-in was basically the same as an ordinary
file but part of
the add-ins grouping

THANKS

Tim



"Walt Weber" wrote in message
...
Hi Tim,

This is code I use within the auto_open routine.

On Error Resume Next 'LOAD & TEST SUCCESS OF LOAD OF
ANALYSIS TOOLPAC
AddIns("Analysis ToolPak").Installed = True
If AddIns("Analysis ToolPak").Installed = False
Then
MsgBox "Excel's Analysis ToolPac could not be
loaded." & Chr(13) & _
"This usually means that Excel was installed
with the default settings." _
& Chr(13) & "The Analysis ToolPac includes
some
spreadsheet functions used by this application." _
& Chr(13) & "To remedy the situation, it will
be
necessary to load the Analysis ToolPac" _
& Chr(13) & "from the Excel installation CD."
&
Chr(13) & _
Chr(13) & "This application will close now."
ThisWorkbook.Saved = True
Application.Quit
End
End If
On Error GoTo 0

Since I just pasted the code here, you'll need to adjust
for the word wrap.

Best Regards,
Walt



.

Walt

Many thanks for your help on this

I have scanned my 2000* version of the book you quote (published by
Wrox) and not found the material - can anyone confirm whether it is in
there?

THANKS

Tim

* "Excel 2000 VBA programmers Reference"