Make your changes, save it, then run SaveArchive.
Here is the code I use to backup My Personal.xls. It is in the ThisWorkbook module of Personal.xls
Private Const BackUpDrive As String = "E:"
Private Const BackUpFolder As String = "MyPersonal"
Private Const BackUpName As String = "Personal.xls.Bak"
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
MakeCopyOfPersonal
End Sub
Private Sub MakeCopyOfPersonal()
Dim TimeStamp As String
If Len(Dir(BackUpDrive & "\" & BackUpFolder, vbDirectory)) = 0 Then
MsgBox "Personal xls not backed up. Cannot find the Backup Folder"
Exit Sub
End If
TimeStamp = Left(CStr(CDbl(Now)), 10) & "_"
Me.SaveCopyAs (BackUpDrive & "\" & BackUpFolder & "\" _
& TimeStamp & BackUpName)
End Sub
I don't care about the actual date in the name. I just want the copies in chronological order. You can have the date in chronological order by using the Format String "yyyy-mm-dd".
The Use of Constants and the no back up message is because over the years, I have moved things around and lost backups.