how to set up an automated saving?

[zzzzimen]

Hi
I was wondering if there are any ways to set up a document to automaticly save itself, just like clicking the save button, but on a timer?
Im using Excel 2013 on a windows 7 device.

 

[John_w]

Use an Application.OnTime routine which does a ThisWorkbook.Save and restarts the timer. For Application.OnTime, see Pearson Software Consulting.

 

[zzzzimen]

Use an Application.OnTime routine which does a ThisWorkbook.Save and restarts the timer. For Application.OnTime, see Pearson Software Consulting.

Thank you, I will try that

 

[ParamRay]

.
.

Sub SaveBook()

    ThisWorkbook.Save
    Application.OnTime _
        EarliestTime:=Now + TimeValue("00:00:05"), _
        Procedure:="SaveBook"

End Sub