Creio que o problema reside na linha--> Application.quit --> Comando que fecha o aplicativo Excel. Outra coisa, a instrução If... depois do comando quit ou close parece-me desnecessaria.
Experimente assim:

Sub Salvar_Sair()
Sheets("Simulador").Select
Ocultar
ActiveWorkbook.Close True
End Sub

Valeu Reinaldo muito bom

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.