Saving a copy with date problem

[SHAY]

Need some help please...
made a buttone with code i found to save a copy with current date for an archive folder. works great!
problem is the changes i do in the worksheet arnt saved in original file. need to save both...

need do either:
- save 2 copys in 2 difrent folders (add another path to the code - FOLDER02)
- write the code so it saves on the original file and a copy to the rchive folder

Any ideas??


This is the code i use:
-----------------------------------

Sub SaveArchive()


Dim dtDate As Date
dtDate = Date


Dim strFile As String
strFile = "C:\Users\shay\Desktop\FOLDER01\FILENAME" & Format(dtDate, " dd.mm.yyyy") & ".xlsm"


ActiveWorkbook.SaveAs Filename:=strFile, FileFormat _
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


End Sub

--------------------------------------