Kaydet Makro yardımı

[Mehmet Sait]

Merhabalar,

Ekli kod ile sayfa kapanınca farklı kaydet yapıyor ancak uyarı almadan üzerine kaydetmek mümkün mü?

Sub auto_close()
Set nesne = CreateObject("Scripting.FileSystemObject")
server = "\\ortak\UserFile\Desktop\raporlar"
'masaustuyolu = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
AyAdi = Format(Date, "mmmm yyyy") & " Üretim Raporları"
klasoradi = Format(Date, "dd.mm.yyyy") & " " & [G2]
dosyaadi = [G2] & " Üretim Raporu "
klasorara = nesne.FolderExists(server & "\" & AyAdi)
If klasorara = False Then nesne.CreateFolder server & "\" & AyAdi

ActiveSheet.Range("$B$2:$U$97").Copy
With ActiveWorkbook
.SaveAs Filename:=server & "\" & AyAdi & "\" & dosyaadi & ".xls"
.Close
End With

End Sub

Yardımlarınız için teşekkür ederim.