Hi All,

This code:
Sub SaveBackup()
ActiveWorkbook.SaveCopyAs "D:\My Book.xls"
End Sub

works great to save a back up copy of €œMy Book€� but I need to change it in
this way :
I need first to delete €œMy Book€� which is on drive D: before to replace it
with the new one.
I need to have a copy of €œMy Book€� in my Recycle Bin because some times the
new €œMy Book€� which replaces €œMy Book on drive D:
has errors on it and thats why I need to have a copy of the old €œMy Book€�
in the Recycle Bin before the replacement.

Tim

Why do you need to store it in the re-cycle bin? That seems a very dodgy
place to keep it. Why not rename the file in the folder each time it is
opened as 'backup' or similar. That way you'll always have the current
version and current version-1 in the folder.

Something like the code below in the ThisWorkbook module (To implement check
here http://www.nickhodge.co.uk/vba/vbaim....htm#eventcode)

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Me.SaveCopyAs ("C:\backup" & Me.Name)
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Tim" wrote in message
...
Hi All,

This code:
Sub SaveBackup()
ActiveWorkbook.SaveCopyAs "D:\My Book.xls"
End Sub

works great to save a back up copy of "My Book" but I need to change it in
this way :
I need first to delete "My Book" which is on drive D: before to replace it
with the new one.
I need to have a copy of "My Book" in my Recycle Bin because some times
the
new "My Book" which replaces "My Book on drive D:
has errors on it and that's why I need to have a copy of the old "My Book"
in the Recycle Bin before the replacement.