This will create a sub directory in any directory and save a copy there as
well as save.

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
SalesAid Software

"Dennis" wrote in message
...
How can I make a copy of a workbook in another drive,
every time it is saved. I'd only want one copy which is
subsequently overwritten each time the original is saved

Thanks