==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name kodunu
==>ThisWorkbook.Save kodunun altına yazınca
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
zaten sizin istediğinizi yapmıyor mu?
aynı ada sahip yedek dosyanızı güncellemiyor mu?
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name <== kodunu nereye yazdınız? ne yapıyor, hangi dosyayı güncelliyor?
kendi bilgisayarımda denediğimde bu kod yedek Excel dosyamı da güncelledi.