For future use, use this after each important stage. Creates a backup
directory and backs up to the current directory
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
If this is something you just created from scratch, you're out of
luck.......if it's something you started by using another file and modified
it, then the other file is probably still there and you could do the
modifications over again........or maybe you emailed someone a copy and
could retrieve it from them?