backing up Excel workbooks.

P

Primepixie

At work we have several extensive Excel worksheets. Is there a way to
automatically create a backup of these files?

Thanks ahead of time for any help in this matter.
Primepixie
 
D

Don Guillett

Here is what I use in addition to the autosave feature
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
 
Top