HI,
I would like to save a copy with today's date to a specific folder,. Just a copy, I do not want it to open or prompt, The below code ,is not working anymore, what is wrong with it:
just a copy so I will not loose my everyday work.
I would like to save a copy with today's date to a specific folder,. Just a copy, I do not want it to open or prompt, The below code ,is not working anymore, what is wrong with it:
just a copy so I will not loose my everyday work.
Code:
Sub Save()
Dim dtDate As Date
dtDate = Date
Dim strFile As String
strFile = "C:\Users\KubaJakubowicz\Desktop\Biezace\analiza magazynu\FINALNY CHRONI\" & "Finalny " & Format(dtDate, "mm-dd-yyyy") & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=strFile, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub