Excel - Macro Solver (de nuevo)

HOla, sigo con el mismo problema que hace un par de meses plantee.
Tengo una macro que ejecuta un Solver, encuentra la solucion satisfactoriamente, pero me muestra el Famosos carte que dice "solver ha hallado una solicion, desea acepytarla o volver a los valores iniciales"? Lo que yo quiero es que directamente las acepte sin preguntar.
El comando Display alerts = False no funciona, ya lo probe.
Alguien me dijo que probara con:
SolverSolve UserFinish:=False
Tampoco me resulto.
Quisiera saber si alguien puede ayudarme con esto.
Copio abajo el codigo de la macro.
Gracias
Sub Resolver1()
'
' Resolver1 Macro
' Macro grabada el 01/08/2007 por Windows Angelical
'
' Acceso directo: CTRL+q
'
Application.ScreenUpdating = False
SolverRestablecer
SolverAceptar definirCelda:="$G$33", valorMáxMín:=3, valorDe:="0", _
celdasCambiantes:="$B$49,$B$71,$B$105,$B$151,$B$210,$B$376"
SolverAgregar referenciaCelda:="$G$57", relación:=2, Formula:="$G$79"
SolverAgregar referenciaCelda:="$G$79", relación:=2, Formula:="$G$113"
SolverAgregar referenciaCelda:="$G$113", relación:=2, Formula:="$G$159"
SolverAgregar referenciaCelda:="$G$159", relación:=2, Formula:="$G$218"
SolverAgregar referenciaCelda:="$G$218", relación:=2, Formula:="$G$384"
SolverAceptar definirCelda:="$G$33", valorMáxMín:=3, valorDe:="0", _
celdasCambiantes:="$B$49,$B$71,$B$105,$B$151,$B$210,$B$376"
SolverResolver
Application.ScreenUpdating = True
End Sub

En realidad hay que modificar directamente el codigo del SOLVER.

Abraham

Es posible eso? como se haria?

Hola Franco ya te conteste a tu correo pero por si acaso aqui te pongo la solución.

Es muy sencillo en la última line ade tu codigo pusiste:

"solverresolver" solo cambialo por "SolverSolve UserFinish:=True"

La parte de user finish:=true es la parte que en la que le dices que no muestre el cuadro de dialogo, en caso de que lo quisieras mostrar deberias poner false o no poner nada como tu hiciste.

Saludos.