Saving backup workbooks

[Matt Edwards]

How do you set excel 2000 to automatically save a backup
workbook file when you save a workbook?

 

[Peo Sjoblom]

File>save as, tools and general options, check always create backup

 

[Don Guillett]

Here is one I use to save to the same name in any directory\backup

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