I just found another post that answered my question. I now have the spreadsheet autosaving every 4 minutes and overwriting the existing file. Couldnt be happier. I dont know much code, but I sure do love it when a project like this comes together.
Module1:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "AutoSaveAs", , False
End Sub
Private Sub Workbook_Open()
dTime = Time + TimeValue("00:04:00")
Application.OnTime dTime, "AutoSaveAs"
End Sub
Module 2
Sub AutoSaveAs()
dTime = Time + TimeValue("00:04:00")
With Application
.OnTime dTime, "AutoSaveAs"
.EnableEvents = False
.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\yourdirectory\filename"
.EnableEvents = True
End With
End Sub
|