VBA to save a file copy as a backup (.XLK) file to another location

[mrpaw]

Hi all. I need to autosave a backup copy of a critical file to another location. I cannot use the default location even though the file name clearly states BACKUP and has warning messages when opened. For some reason users will still try to use those files. I have looked at file format enumerations but don't see one for backup files .XLK. How would I convert the following to use .XLK and what FileFormat?

ActiveWorkbook.SaveAs Filename:="R:\All\Level2\BACKUP\" & Nameit & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True

 

[Logit]

.
Paste this into a Routine Module :

Option Explicit


Sub SaveMyWorkbook()
         
    Dim strPath As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    strPath = "C:\Users\My\Desktop\Backup.xlk"
    ActiveWorkbook.SaveAs Filename:=strPath
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
     
End Sub

 

[mrpaw]

Perfect. Thank you. From all the searching I did, I'm sure I'm not the only person that could use this solution. It works PERFECTLY! Thank you again.

 

[Logit]

You are welcome.