:huh: Fala rapaz, não sei se você resolveu seu problema....hauhaua Depois de anos...rs me registrei e vim lhe da a solução! segue abaixo: ActiveWorkbook.Saved = True Workbooks("nome_do_arquivo").Close Application.Quit Essa função irá fechar apenas o arquivo o qual esta trabahando, já os demais ficam abertos. Abraços