I'm using the following workbook code to frequently save a timed and dated copy of the file in a backup location elsewhere before saving the file at it's normal location.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fn As String, ext As String, ipos As Long...