By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

listi.net

Backup

Sub Backup()
On Error Resume Next
Range("CurrentVersion") = Range("CurrentVersion") + 1
ActiveWorkbook.SaveCopyAs "Time-creator." & Format(Range("CurrentVersion"), "000") & ".xlsm"
If Err <> 0 Then
MsgBox Err & " " & Error
Else
Range("LastBackup") = Now()
End If

End Sub