Here's one for seconds

'=======================================
Sub countdown()
t = ActiveSheet.Range("A1").Value
For s = t To 0 Step -1
ActiveSheet.Range("A1").Value = s
Application.Wait Now + TimeValue("00:00:01")
Next
End Sub
'======================================


---
Message posted from http://www.ExcelForum.com/