VBA kode til Auto save af excel fil

Hej Eksperter
Jeg bruger excel og en macro til at samle data op i løbet af dagen. Macroen har til formål at samle tidsforbrug op i forhold til definerede aktiviteter. Hver gang man vælger en ny aktivitet ved tryk på en knap i macroen, registreres en linje med aktivitetens navn og tidspunktet hvor den startede.
For at sikre at disse data ikke forsvinder fordi man glemmer at gemme i løbet af dagen, vil jeg gerne have en kode der sikre at filen gemmes (overskrives) eksempelvis hvert 5 min. Det skal også gerne gøres uden at brugeren skal tage stilling til noget.
Jeg har prøvet at kopiere lidt af de forskellige koder ind som jeg kan finde her på siden, men af en eller anden årsag, så gemmer den ikke.
Håber at der er en der kan hjælpe.

Koden jeg bl.a. har forsøgt med er denne her:

Sub AutoSaveAs()
    dTime = Time + TimeValue("00:01:00")
    With Application
        .OnTime dTime, "AutoSaveAs"
        .EnableEvents = False
        .DisplayAlerts = False
        ThisWorkbook.SaveAs "FilePath&NameHere(no .xls)"
        .EnableEvents = True
    End With
End Sub