bahsettiğiniz talebinize yönelik olarak;
ActiveWorkbook.SaveAs Filename:= "dosya_yolu_adi" & "\" & dosya_adi & "_" & Format(Now, "yyyy-mm-dd H-mm") & ".xlsx"
ya da
ActiveWorkbook.SaveAs ("dosya_yolu_adi" & "\" & dosya_adi & "_" & Format(Now(), “DD-MMM-YYYY”) & “.xlsx”)
veyahut da
ActiveWorkbook.SaveAs Filename:= Application.ActiveWorkbook.Path & "\" & dosya_adi & "_" & Format(Now(), "yyy_mm_dd_hh_mm" & ".xlsx")
benzeri kod satırlarını kullanmak sureti ile deneyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.