Workbook back up

[Aris]

Hi,

Is there a way to have excel create a backup file saved somewhere each time
the workbook is either opened or closed? I know there is the auto recover but
it doesn't really save a back up file that I could open when ever I need to.

Thanks,

 

[Don Guillett]

This is one I use.
Sub Backup() 'kept in personal.xls & assigned to toolbar button
On Error GoTo BackupFile
MkDir CurDir & "\Backup"
BackupFile:
With ActiveWorkbook
MyWB = .Path & "\BACKUP\" & .Name
.SaveCopyAs MyWB
.Save
End With
End Sub

 

[Aris]

Thanks! This was great. it worked perfectly.

This is one I use.
Sub Backup() 'kept in personal.xls & assigned to toolbar button
On Error GoTo BackupFile
MkDir CurDir & "\Backup"
BackupFile:
With ActiveWorkbook
MyWB = .Path & "\BACKUP\" & .Name
.SaveCopyAs MyWB
.Save
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)


.