Hello mrdude70 and Wedge120, I am not the most proficient at Excel coding, but let me see if I can help you out here.

I just followed these steps to create another working copy of this code (and I changed the time value to 30 seconds to give you a bit more time to work with):

1. Create and save a new Excel document as an Excel Macro-Enabled Workbook.
2. With the new workbook open in Excel, press the Alt & F11 keys simultaneously.
3. Ensure your Project Explorer is open - if it isn't, press the Ctrl & R Keys at the same time. Its default location for me is the left side of the screen.
4. Right click the Excel document title in the Project Explorer and choose Insert/Module.
5. Double-click the newly created module (the default name is Module1) to open its window.
6. Copy and paste this code into Module1:
Dim DownTime As Date


Sub SetTime()
DownTime = Now + TimeValue("00:00:30")
Application.OnTime DownTime, "ShutDown"
End Sub

Sub ShutDown()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Sub Disable()

On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", _
Schedule:=False
End Sub
7. Double-click the ThisWorkbook icon in the Project Explorer and paste this code into its window:
Private Sub Workbook_Open()

Call SetTime
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Disable
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call Disable
Call SetTime
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target _
As Excel.Range)
Call Disable
Call SetTime
End Sub
8. Switch back to your Excel file (Alt & F11), save and close.

When you open your Excel file again and do nothing for 30 seconds, it should save and close automatically. All the best!