Overriding Solver "Could not find feasible solution" in VBA?

I am currently using Solver to solve for three variables with an objective function. When I run Solver, I frequently get the message "Could not find feasible solution," but the solution that appears is correct. Furthermore, all of the cells appear to meet the constraints specified. I have allowed for negative values for non-constrained cells, which makes sense for my application. When I try to run a feasibility report, Excel crashes, so I am not sure what is going wrong.

Ultimately, I am trying to automate the solving process using VBA. Is there a way to ignore the error message and put the data in the cells regardless since it is giving me the correct answer anyway? My code is as follows, if that is of any help.

Please Login or Register  to view this content.

Welcome to the board.

Your SetCell reference appears to be invalid, and Solver might be happier if you squared the result in the SetCell and then changed the model to minimize that cell.

Please take a few minutes to read the Forum Rules, and then edit your post to wrap your code with CODE tags.

Thanks.

I named some of my functions/macros beginning with the phrase "solver" which I read can corrupt or modify hidden solver variables

I think the only Solver* names you need to avoid are those you use in VBA:

SolverAdd
SolverChange
SolverDelete
SolverFinish
SolverFinishDialog
SolverGet
SolverLoad
SolverMain
SolverOk
SolverOkDialog
SolverOptions
SolverReset
SolverSave
SolverSolve

But my suggestion for changing your model stands.