autosave workbook

[netjerk]

How to do an autosave workbook at a fix time(eg. 10pm) to a file wit
filename of current time and date? Or export the chart to a fil
readable by excel

 

[mudraker]

copy and paste to a normal module sheet


Run SetAutoSave


Sub SetAutoSave()
Application.OnTime TimeValue("20:00:00"), "AutoSave"
End Sub

Sub AutoSave()
Dim fName As String
fName = ActiveWorkbook.Path & _
"\Test " & Format(Now(), "ddmmyy hhmm") & ".xls"

ActiveWorkbook.SaveAs FileName:=fName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Su