Here is one I use to save to a backup folder in the same folder. 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