In the code I wrote below, I am prompted to make a backup copy. The code resides in "ThisWorkbook"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Msg = "Would you like to make a backup of this file?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbYes Then
FName = "C:\My Documents\HomeActg\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs FName
End If
End Sub