Sn atoz112,
teşekkür ederim, 

ayrıca forumda arama yaparken bazılarının faydalanabilmesi için eklemekte fayda gördüklerim:

mevcut dosyayı kopyalamadan yada farklı kaydetmeden önce kaydetmek istersek

ActiveWorkbook.Save

belirlediğimiz klasöre kopya oluşturmak için

ActiveWorkbook.SaveCopyAs Filename:= Application.ActiveWorkbook.Path & "\" & dosya_adi & "_" & Format(Now(), "yyy_mm_dd_hh_mm" & ".xls")