Autosave every 15 minutes

I have this code, and it's not working:

Sub MyMacro()

End Sub
dTime = Time + TimeValue("00:15:00")
Application.OnTime dTime, "MyMacro"

ThisWorkbook.Save
End Sub

Can someone help me setup an autosave vb in Excel 2007 - I want a SAVE not a SAVE AS.

thanks

What's wrong with the built-in autosave?

Your code has an extra End Sub

Sub MyMacro()

''''''End Sub

dTime = Time + TimeValue("00:15:00")
Application.OnTime dTime, "MyMacro"

ThisWorkbook.Save
End Sub

Yes, my bad. I should have read the description more closely.

Does removing the End sub from your routine help.

Have you tried Jan Karel's Autosave addin?
http://www.jkp-ads.com/Download.asp

You can unset the Saved flag after saving.

ThisWorkbook.Save
' unset saved flag
thisworkbook.Saved = false
End Sub

Time does not contain any date information so not sure what would happen at 23:45 or later. Whether the TIME+15 will automatically work.
Perhaps not as this in the immediate window would suggest the next schedule is way in the past.

?timevalue("23:51:11")+TimeValue("00:15:00")
31/12/1899 00:06:11

Be safe and use NOW