Boa noite!!
Use a pesquisa do fórum, essa mesma dúvida eu mesmo respondi algumas semanas atrás!!
Exemplo........
With Workbooks("Seu_Arquivo_Aqui.xls")
.Saved = True
.Close 0
End With
OU..
Workbooks("Seu_Arquivo_Aqui.xls").Close 0
Ou..
Workbooks("Seu_Arquivo_Aqui.xls").Close savechanges:=False
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/07/2013 3:43 pm