Here's a neat little snippet from Mr. Guillett that I have used for a long
time now. It's kind of like an itch, you learn to scratch it without really
thinking about it.

Sub backup()
'Don Guillett, misc, 2000-05-08
Fname = ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "C:\msoffice\personal\BACKUP\ " & Fname
ActiveWorkbook.Save
End Sub

Regards,

Alan


"Dean" wrote in message
...
I just accidentally closed out the wrong file of two files without saving
and then, foolishly further, re-opened it in the hopes that I had saved it.
I did not. I assume that any automatic recovery saves I did are lost
forever right?

Thanks!
Dean, the idiot!