Use the following addin reference

AddIns("Analysis ToolPak - VBA").Installed = True

your code

AddIns("Analysis ToolPak - VBA").Installed = False


--
Cheers
Nigel



"Ubirajara Augusto" <UbirajaraAugusto@discussions.microsoft.com> wrote in
message news:8C123C7D-5EE7-4079-BD89-8C14E1729EB2@microsoft.com...
> Thanks but the same message continues to appear.
> Do you have any other tip?
>
> "Nigel" escreveu:
>
> > ATPVBAEN.XLA is an add-in, you need to ensure that this is installed
before
> > you run the macro, alternatively change the macro to include this add-in
> > before the regression command eg
> >
> > AddIns("Name of Addin").Installed = True
> >
> > your code to run the analysis using the addin functions
> >
> > AddIns("Name of Addin").Installed = False
> >
> > --
> > Cheers
> > Nigel
> >
> >
> >
> > "Ubirajara Augusto" <Ubirajara Augusto@discussions.microsoft.com> wrote
in
> > message news:41E1050F-3DB6-4D05-A0E9-EFE7EB98A24D@microsoft.com...
> > > I am trying to automate running of regression macros in Excel. I used
the
> > > "record" method to create one. But everytime I run the "recorded"
> > regression
> > > macro, I get the error message:
> > >
> > > "Macro 'ATPVBAEN.XLA!Regression' could not be found.
> > >
> > > Code:
> > >
> > > Application.Run "ATPVBAEN.XLA!Regression",
> > ActiveSheet.Range("$B$2:$B$50"), _
> > > ActiveSheet.Range("$A$2:$A$50"), True, True, 95, "AUX44",
True,
> > > True, True _
> > > , True, , True
> > >
> > > What can I do?
> > >
> > > Thanks.
> >
> >
> >