Ejecución de solver desde un botón

Como hacer para que no aparezca la opción de (Resultados de solver ) al ejecutar este macro.

Sub LanzaSolver()
Application.ScreenUpdating = False
Application.SendKeys "%D"
Application.SendKeys "y4"
Application.SendKeys "%s", True
Application.SendKeys "{TAB}"
Application.SendKeys "{ENTER}"
Application.SendKeys "{ENTER}", True
Application.ScreenUpdating = True
End Sub