Excel dosyasını farklı kaydetmek

[aspuzu21]

Slm, çalışma sayfasını kapatırken dosyayı o ayın ismi ile farklı klasöre kaydetmek için nasıl bir kod gerekiyor?
örnek:açık kitap kapatılırken bilgisayarda Belgelerime temmuz olarak veya ağustos olarak kaydedecek o günkü tarih ne ise artık.
Saygılar.

 

[hamitcan]

Sub farklikaydet()
ActiveWorkbook.SaveAs Filename:="C:\" & Replace(Date, "/", ".") & ".xls"
End Sub