I have used a solver in Microsoft Excell to find a solution in a
spreadsheet and the solver works and I can get a solution. I have
several similar cases and I have tried to automate this process and I
made a macro to do this.
Here is the Macro:

Sub optimointi()
SolverReset
SolverAdd CellRef:="$BJ$41:$BJ$52", Relation:=1,
FormulaText:="$BG$7"
SolverOk SetCell:="$BH$43", MaxMinVal:=2, ByChange:= _
"$BJ$7,$BP$26:$BP$42"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
End Sub

This macro works alone fine everytime I start it from excell but if I
add anything to a macro before SolverReset statement or if I call it
from another macro it simply doesn't work. I doesn't give any error
message. Strange for me.

Does anybody have any idea what might be reason for this?

Jukka

I have had a somewhat similar problem. Try this:
SOLVER.Auto_open
before the solver reset statement.

"Jukka" wrote:

I have used a solver in Microsoft Excell to find a solution in a
spreadsheet and the solver works and I can get a solution. I have
several similar cases and I have tried to automate this process and I
made a macro to do this.
Here is the Macro:

Sub optimointi()
SolverReset
SolverAdd CellRef:="$BJ$41:$BJ$52", Relation:=1,
FormulaText:="$BG$7"
SolverOk SetCell:="$BH$43", MaxMinVal:=2, ByChange:= _
"$BJ$7,$BP$26:$BP$42"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
End Sub

This macro works alone fine everytime I start it from excell but if I
add anything to a macro before SolverReset statement or if I call it
from another macro it simply doesn't work. I doesn't give any error
message. Strange for me.

Does anybody have any idea what might be reason for this?

Jukka