Excel VBA バックアップ作成方法

システムタイムスタンプをファイル名に付けてバックアップ

backUpName = Replace(ThisWorkbook.FullName, _
                ".xls", _
                "_" & Format(Now, "yyyymmddhhmmss") & ".xls")

ActiveWorkbook.SaveCopyAs backUpName