Running solver several times using a for-loop

Hello,

I am trying to run a shortest path problem on a set of nodes. In this scenario there is one start node and three end nodes (other versions I am working on have multiple possible start nodes and many more end nodes--but I kept this one simple). I have written VBA code that should run the shortest path algorithm *using SOLVER* for each start-end pair (in this case just 3). I can step through the program and it works perfectly. When I run it all at once, however, I get a message Run-time error '1004': Method 'Calculation' of object '_Application' failed.

Would somebody be willing to help me so that the program can run through all three iterations of Solver when I run the program, please?
If you need a reference to the way I've set up the problem, you can visit this link: http://www.excel-easy.com/examples/s...h-problem.html

My file (with the included VBA code--in the Sheet's code (not a module)) is included here, too.

Response Times.xlsm

Thank you so much!

Thank you, Alf! I got it to work on a Windows machine.
(Details for anyone interested--http://www.excelforum.com/excel-programming-vba-macros/948334-excel-macro-advancing-before-solver-is-finished.html)

You are welcome.

By the way if you don't wont the macro to stop after each loop you could change the line

SolverSolve

to

SolverSolve UserFinish:=True

Alf