Looking for an excel macro (or VBA code) to have workbook auto save every hour.

[Charlie G]

I have a an extensive spreadsheet that is used for timing customers for billing time used. An occasional power problem has lost all data for that day. Used be multiple people, no one does an occasional Save manually.

[Laura Nicholaso]

Hi Charlie,

Interesting question. I found this on the MrExcel.com forum:

Copy this into any standard module:

Option Explicit
 
Public RunTime
 
 
 
Sub StartTimer()
 
RunTime = Now + #12:10:00 AM#
 
Application.OnTime RunTime, "SaveBook", schedule:=True
 
End Sub
 
 
 
 
 
Sub SaveBook()
 
ActiveWorkbook.Save
 
StartTimer
 
End Sub
 
 
 
 
 
Sub StopTimer()
 
   On Error Resume Next
 
   Application.OnTime RunTime, "SaveBook", schedule:=False
 
End Sub
 
 
 
 
 

Place this in your workbook class module:

Private Sub Workbook_Open()
 
StartTimer
 
End Sub
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
StopTimer
 
End Sub
 
 
 

This code will automatically save your workbook every 10 minutes.

[Rabbit]

Or you just set it up in the options... No need to create a macro for it when it's natively supported.