Save the workbook into a folder every 10 minutes

[sofas]

Hello. I have a workbook that I want to save as a backup copy every 10 minutes on disk D, creating a folder called data and saving it inside it automatically.

 

[Cubist]

Maybe this. Try on a copy.

Sub AutoBackup()
    Dim FolderPath As String
    Dim FileName As String
    Dim Interval As Integer
   
    FolderPath = "D:\data\"
   
    FileName = ThisWorkbook.Name
   
    ThisWorkbook.SaveCopyAs FolderPath & FileName & "_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".xlsm"
   
    Interval = 10 * 60
   
    Application.OnTime Now + TimeValue("00:00:" & Interval), "AutoBackup"
End Sub