The following code autosaves based on a cell value.

```
Sub AutoSaveIt()
If Sheets("BOH General").Range("A102").Value > 0 Then
    ThisWorkbook.Save
    Application.OnTime Now + TimeSerial(0, Sheets("BOH General").Range("A102").Value, 0), "AutoSaveIt"
End If
End Sub

```

What code do I call at close to break this loop?

EDIT: I'm trying to avoid it re-opening the workbook and running the macro again once it has been closed