VBA Solver help.
 

I am currently using solver in VBA, to help run a model that i have set up.
whenever i first open the model and run the program it gives me an error that
reads "An internal error has occurred or available memory has been
exhausted". and then closes out of the program, if i go back into the
workbook and run solver manually and then run the program again it works. Can
someone please tell me what is going on? and and how i can get this problem
to stop.