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

"Aris" wrote in message
...
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,