Hello Chris,
I have made the necessary changes to the attached workbook and tested it. Here is the routine that was added to the UserForm. No other code was needed.
Sub StartTimer()
Dim StartTime As Single
Dim TimeLeft As Single
Dim TimeOut As Single
TimeOut = Timer + (5 * 60) ' Close after 5 minutes
StartTime = Timer
TimeLeft = StartTime + TimeOut
Do
Label2.Caption = VBA.Format(Timer - StartTime, "0.00")
If Timer > TimeOut Then
ThisWorkbook.Close SaveChanges:=True
Application.Quit
End If
DoEvents
Loop
End Sub
Bookmarks