Excel-VBA 汎用BackUp

ExcelのバックアップのVBAです。
OneDriveなどで複数のPCでの使用を想定しています。
基本的にローカルにBackUpする方法。
日時をファイル名に書き込んでいます、もう一点。
PCのユーザ名を検出して汎用性を上げています。

以下、Source
Sub Backup()
'
' Backup Macro

'

Dim xlTime As String
Dim xlName As String
Dim U_Nam As String
Dim Fld_Nam As String

U_Nam = Environ("USERNAME")

Fld_Nam = "C:\Users\" & U_Nam & "\Desktop\TH-BACKUP\" ' Folder名を指定

' 　ファイル名を取得
xlName = ThisWorkbook.Name

' 　年月日自分を取得
xlTime = Year(Date) & Format(Month(Date), "00") & _
Format(Day(Date), "00") & _
Format(Hour(Now), "00") & _
Format(Minute(Now), "00")

' 　コピー保存用ファイル名設定
xlName = Left(xlName, InStrRev(xlName, ".")) & xlTime & "_BACKUP"

xlName = Fld_Nam & xlName

Debug.Print xlName

' 　ファイルをコピーして保存する
ThisWorkbook.SaveCopyAs xlName & ".xlsm"

わかお　かずまさ

VegaSystems