Stop timed macro on close

I have the following macro to recalculate the time every second on opening a spreadsheet

Sub Auto_Open()
Calculate
Application.OnTime Now + TimeValue("00:00:01"), "Auto_open"
End Sub

Looking for the code I need to add that will stop the macro when the file is closed.

Many thanks