Save as backup

[Gary]

Is there a way to save a current workbook as a backup into
a "temp" folder without saving the actual workbook.

 

[Don Guillett]

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