Save and Backup

'' ***************************************************************************
'' Purpose  : Generate history
'' Written  : 29-Oct-2000 by Andy Wiggins - Byg Software Ltd
''
Sub SaveBackup()
Const ctTitle = "Archive Save"
Dim lStr_NewName As String

    lStr_NewName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & " " & Format(Now, "yyyymmdd_hhmmss")
 
    With ThisWorkbook
    
        If vbYes = MsgBox(lStr_NewName, vbYesNo + vbCritical, ctTitle) Then
            .SaveCopyAs lStr_NewName
            .Save
        Else
            MsgBox "Not saved", vbOKOnly + vbInformation, ctTitle
        End If
        
    End With

End Sub