Thread: [Solved] Auto save macro
View Single Post
 
Old 10-24-2017, 04:27 PM
brent chadwick brent chadwick is offline Windows 8 Office 2013
Advanced Beginner
 
Join Date: Mar 2015
Posts: 86
brent chadwick is on a distinguished road
Default Auto save macro

Hey Guys,
Working on an auto save macro on Mac. This code works well so far except for two things: you need to save the first time manually with the Command +S, and when you do save manually later on it gives me the dialog box, which is annoying since if I am saving manually I don't want to see the dialog box. Suggestions?


Code:
Public Sub FileSave()
'Auto Save macro
ActiveDocument.SaveAs
DoEvents
Application.OnTime _
When:=Now + TimeValue("00:10:00"), _
Name:="FileSave"
MsgBox "10 Minutes have elapsed since this document was saved. Do you want this " & ActiveDocument.Name & " document saved now?", 3
Application.StatusBar = "Auto Saved: " & ActiveDocument.Name
End Sub
Reply With Quote