Save as backup

  • Thread starter Thread starter Gary
  • Start date Start date
G

Gary

Is there a way to save a current workbook as a backup into
a "temp" folder without saving the actual workbook.
 
Here is one I use to save file and save a backup in a backup folder in
whatever directory. You may modify to suit.

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
 
Back
Top