Add Ins error

[kkondrat1]

Private Sub Workbook_Open()
AddIns("Analysis ToolPak").Installed = True
AddIns("Analysis ToolPak - VBA").Installed = True
'SetScrollAreas
'Sheets("Assumptions").Select
'identify_write_access
End Sub

When i open the sheet I receive this error-

"Run time error '7': Out of memory

any ideas?

 

[Oorang]

The code is good, I think you probably are out of memory ( ) How much do you have on your machine?

 

[kkondrat1]

Out of memory

I have 512, I don't know how memory could be an issue for a simple macro command like this-

I am opening this sheet from a hyperlink, could that be an ussue?

 

[Oorang]

Hmm just a thought to try... Instead of putting it in workbook open try putting it in a module and naming the sub Autpen.

Might fix it. (Might not too )