Edit code to save every 15 minutes on it's own without showing save name dialog box

[Jhong]

Hi,

I had been trying different codes posted for auto saving, somehow this is the only code I get to make work with minor tweaks. It saves filename as "Title" + range in Cell (Time tweaked as text). However, It still does not meet 2 requirements.
1. Auto save every 15 minutes (Priority)
2. Show Filename box before save (Less important as this could somehow help as reminder).

Sub SaveWorkbook()Dim SvName As String


SvName = "LiveAudit" & " " & Sheets("Live Audit Dashboard").Range("AA1")
Application.Dialogs(xlDialogSaveAs).Show SvName


End Sub

Thanks

 

[pbornemeier]

Under File | Options | Save are controls to specify the AutoRecover (auto-save) interval. I believe it defaults to 30 minutes.

Also the Application.OnTime function can be used to trigger macros as the time/interval desired.