HAL,

Format A1 for mm:ss, then use:

Dim myTime As Date

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

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

Sub TimeA1()
Range("A1").Value = myTime - Now
Application.OnTime Now + TimeValue("00:00:01"), "TimeA1"
End Sub

HTH,
Bernie
MS Excel MVP

"HAL" wrote in message
...
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