Quote:
Originally Posted by Don Guillett[_2_]
This is all you really need. It will save any file to the same folder
but a subfolder named backup (even if it doesn't exist). You really
don't need the date, etc. You could put this in the Thisworkbook
module under workbook_open and/or assign to a button or shape
Sub Backup()
On Error GoTo BackupFile
MkDir CurDir & "\Backup"
BackupFile:
With ActiveWorkbook
MyWB = .Path & "\BACKUP\" & .Name
.SaveCopyAs MyWB
.Save
End With
End Sub
|
Don, thank you for your help. I'm a little confused though. I put the code in as you directed, saved, closed, opened & closed the document. Went to find the backup but I am not seeing any type of Backup folder. I did find a backup copy, and I suppose I could just move the copy over to the folder, but I do want to keep the last 7 backups - that way I can tell where/how/when a mistake was made if I need to do so. Will this method name the backup copies consecutively or will it write over the last one?