Autosave by timer

Hello,
can someone give me a solution,

i have an excel file and i want a VBA code for autuosave by timer and in specific location.

so when i open the excel file the code should run automatically and count 30 second then save it in specific location.


Thanks in advance.

.

Option Explicit

Sub macro1()
     Application.OnTime Now + TimeValue("00:00:30"), "sveIt"  '<-- this tells the macro, in 5 seconds run yourself again.

'place your other code here

End Sub

Sub sveIt()
Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim FName           As String
    Dim FPath           As String
    Dim dt              As String
    
    dt = Format(Now(), "mm-dd-yyyy hh.mm.ss")
    FPath = "C:\Users\My\Desktop"       ''<-- Change SAVE DIRECTORY as required
    FName = Sheets("Sheet1").Range("A1").Text & "-" & dt & ".xlsm"
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
macro1
End Sub

Dear Logit, thank you for your help, the code working as well, but is there an option to run the code without clicking on the button ? like the code start automatically when i open the file.

YasserKhalil, can you please edit it in the file that Logit send it, im not good in the coding so i dont have an indea where to write your code.