Как правильно создать резервную копию книги?

Sub test_5_3_20_1()
Dim S_filename As String
S_filename = ActiveWorkbook.Name
 
'пересохранить файл под другим именем (в формате xls):
ActiveWorkbook.SaveAs Filename:="резервная копия.xls", FileFormat:=xlExcel8
 
'сохранить исходный файл с заменой (в формате xls):
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=S_filename, FileFormat:=xlExcel8
Application.DisplayAlerts = True
End Sub

Sub test_5_3_20_4()
FileCopy "D:\Книга1.xls", "D:\Книга2.xls"
End Sub

Private Declare Function CopyFL _
Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
 
Sub FOR_viper()
CopyFL "D:\Книга1.xls", "D:\Книга2.xls", 0&
End Sub

Sub CopyFileWithFSOBasic()
' подключить библиотеку "Microsoft Scripting Runtime" в Tools > References.
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    Call FSO.CopyFile("D:\Книга1.xls", "D:\Книга2.xls", True)
' True - разрешается замена, если файл копии уже существует
End Sub

Sub CopyFileWithFSOBasic()
   With CreateObject("Scripting.FileSystemObject")
     Call .CopyFile("E:\MM\SSS.xlsm", "E:\MM\SDDD.xlsm", True)
  End With
End Sub

CreateObject("Scripting.FileSystemObject").CopyFile "E:\MM\SSS.xlsm", "E:\MM\SDDD.xlsm", True