Sub Backup()
'Step 1: Create a Backup of a Workbook with Current Date in the Same folder
     ThisWorkbook.SaveCopyAs _
     FileName:=ThisWorkbook.Path & "\" & _
     Format(Date, "mm-dd-yy") & " " & _
     ThisWorkbook.Name
End Sub