Ejecutar Solver en VBA

[Eritis]

Hola a todos, realizando una macro en VBA hago una llamada a Solver de la en
donde primero defino las opciones del solver y luego llamo a Solver, de la
siguiente forma:

SolvOptions MaxTime:=5, Iterations:=1000, Precision:=0.01, _
AssumeLinear:=False, StepThru:=False, Estimates:=1, _
Derivatives:=1, IntTolerance:=1, Scaling:=False, Convergence:=0.01, _
AssumeNonNeg:=True
SolvOk SetCell:="$D$1", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$6:$C$67"
SolvSolve userfinish:=True
SolvOptions MaxTime:=1000, Iterations:=1000, Precision:=0.01, _
AssumeLinear:=False, StepThru:=False, Estimates:=1, _
Derivatives:=1, IntTolerance:=1, Scaling:=False, Convergence:=0.01, _
AssumeNonNeg:=True

Al ejecutar el codigo, en ciertas ocasiones sale una ventana con el
siguiente error:

"Solver: Error Interno No Esperado, o memoria insuficiente"

Haciendo un paso a paso, el error aparece cuando defino las opciones del
Solver, y lo "soluciono" normalmente abriendo y cerrando el solver
manualmente y ejecutando de nuevo la macro.
Alguien podria decirme como resolverlo sin necesidad del paso manual?

[Héctor Miguel]

hola, 'anonimo/a' !

> ... una macro en VBA hago una llamada a Solver... defino las opciones... y luego llamo a Solver [...]
> ... en ciertas ocasiones sale una ventana con...: "Solver: Error Interno No Esperado, o memoria insuficiente"

> Haciendo un paso a paso, el error aparece cuando defino las opciones del Solver

> y lo "soluciono" normalmente abriendo y cerrando el solver manualmente y ejecutando de nuevo la macro.
> Alguien podria decirme como resolverlo sin necesidad del paso manual?

supongo que el error aparece [probablemente] la primera vez que ejecutes el codigo -?-
-> para resolverlo [y SOLO por unica vez] prueba a usar la siguiente instruccion...
Application.Run "solver.xla!auto_open"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.