salva a tempo (deciso da utente) file con nome data +orario

Ciao a tutti. cerco un piccolo aiuto.
Ho trovato questo script in rete http://lucabenetti.altervista.org/Codice.htm che permette di salvare i file excel, con tempo deciso da me, e i file salvati hanno lo stesso nome del file di origine con in più la data e l'orario (ora, minuti, secondi) del salvataggio.
Quindi mi troverò una serie di file nella stessa cartella salvati ad orari differenti.
Ad esempio se utilizzo una macro che scarica dei valori ogni 5 minuti, il file poi lo posso salvare ogni X minuti e Y secondi (valore impostato).
Il salvataggio può essere programmato al secondo.
I valori da inserire sono:
Percorso = "percorso salvataggio file" : l'ho scritto in blu per evidenziare il percorso che deve essere inserito dall'utente.
Minuti = 2 (qui ho scritto 2 perché salvo ogni 2 minuti)
Secondi = 0 (qui ho scritto 0 perché salvo ogni 2 minuti e 0 secondi)

Public Sub SalvaPeriodicamente()
Dim Nome_Attuale As String
Dim Percorso As String
Dim Nome_File As String
Dim Minuti As Integer
Dim Secondi As Integer
Dim Tempo As String
Nome_Attuale = ActiveWorkbook.Name
Percorso = "percorso salvataggio file"
NomeFile = Mid(Nome_Attuale, 1, Len(Nome_Attuale) - 4) + "_" + _
Format(Date, "yyyymmdd") + "_" + Format(Time, "hhmmss") & ".XLS"
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs Percorso & NomeFile
Minuti = 2
Secondi = 0
Tempo = "00:" + Format(Minuti, "0#") + ":" + Format(Secondi, "0#")
Application.OnTime Now + TimeValue(Tempo), "SalvaPeriodicamente"
End Sub