Is it possible for A1 to display a time countdown in mm:ss
by adding to this:

Sub Auto_Open()
Application.OnTime Now + TimeValue("00:05:00"), "Closeit"
End Sub

Sub Closeit()
With ActiveWorkbook
.Save
.Close
End With
End Sub

TIA