AutoSave

[DD44]

can someone fix this for me please: keep getting rutime error 1004 Application.OnTime

**in the ThisWorkbook section

Option Explicit
Private Sub Workbook_Open()
macro1
End Sub

**in a module
Option Explicit

Sub macro1()
Application.OnTime Now + TimeValue("00:00:01"), "sveIt" '<-- this tells the macro, in 5 seconds run yourself again. 'place your other code here

End Sub

Sub sveIt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim dt As String

dt = Format(Now(), "mm-dd-yyyy hh.mm.ss")
ThisWorkbook.SaveAs Filename:="\\MY DIRECTORY\dt.xlsm"

Application.ScreenUpdating = True
Application.DisplayAlerts = True
macro1
End Sub

[jonathann3891]

I see a few things.

You need to specify the exact location and the file format.
You can only add "Option Explicit" to the very top of a module. If you need to add it to another sub, then you will have to create a new module.
And finally, your time is set to 1 second not 5.

Here is a working version of your code. Make sure to change the path.

Please Login or Register  to view this content.

[DD44]

I see a few things.

You need to specify the exact location and the file format.
You can only add "Option Explicit" to the very top of a module. If you need to add it to another sub, then you will have to create a new module.
And finally, your time is set to 1 second not 5.

Here is a working version of your code. Make sure to change the path.

Please Login or Register  to view this content.

so all this code should write in module or thisworkbook ? i have mentioned there part in thisworkbook and the second part in the module

[jonathann3891]

I didn't see where you said they were separated, I apologize.

You can have them separated as you originally stated. You can also add the option explicit back from where I removed it.

[DD44]

jonathann3891 thank you so so much works like a charm