wilg
05-23-2012, 07:12 AM
Hi, I have the following which will save a backup of my file in a specified folder. But I need to add a date with time like now() into it so every time it saves it save with adding in the time with the filename so I can retrieve a backup 3 min ago for instance.
Any suggestions on this?
Sub backup()
On Error Resume Next
Fname = ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ThisWorkbook.Sheets(".").Range("A41") & "BACKUP OF " & Fname
ActiveWorkbook.Save
End Sub
Thanks in advance.
Any suggestions on this?
Sub backup()
On Error Resume Next
Fname = ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ThisWorkbook.Sheets(".").Range("A41") & "BACKUP OF " & Fname
ActiveWorkbook.Save
End Sub
Thanks in advance.