Vba auto save every 5 minutes. Help

[Melmillw82]

Hi everyone,
I am trying to auto save a worksheet every 5 mins using vba code. I have saved the code to workbook and module and it saves every 5 mins. Issue is it reopens any excel file that was open and it saves those files too. Any suggestions??
Thanks in advance.

Saved in workbook.

Private Sub Workbook_Open()
alertTime = Now + TimeValue("00:01:00")
Application.OnTime alertTime, "SaveMe"
End Sub

Saved in module

Public Sub SaveMe()
ActiveWorkbook.Save

alertTime = Now + TimeValue("00:01:00")
Application.OnTime alertTime, "SaveMe"
End Sub

 

[Yongle]

How about replacing ActiveWorbook.Save with...

ThisWorkbook.Save

 

[AlphaFrog]

In a Module\

[color=darkblue]Public[/color] alertTime [color=darkblue]As[/color] [color=darkblue]Date[/color]

[color=darkblue]Public[/color] [color=darkblue]Sub[/color] SaveMe()
    ThisWorkbook.Save
    alertTime = Now + TimeValue("00:01:00")
    Application.OnTime alertTime, "SaveMe"
[color=darkblue]End[/color] [color=darkblue]Sub[/color]


[color=darkblue]Public[/color] [color=darkblue]Sub[/color] SaveMeStop()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    Application.OnTime alertTime, "SaveMe", Schedule:=[color=darkblue]False[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

In the Thisworkbook module

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_Open()
    SaveMe
[color=darkblue]End[/color] [color=darkblue]Sub[/color]




[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_BeforeClose(Cancel [color=darkblue]As[/color] [color=darkblue]Boolean[/color])
    SaveMeStop
[color=darkblue]End[/color] [color=darkblue]Sub[/color]