Sub Auto_close() aa= "\\10.0.0.1\rapor\dosya\kitap.xls" ActiveWorkbook.SaveAs Filename:=aa ThisWorkbook.Close SaveChanges:=False End Sub