Contagem Regressiva

Invente a sua aplicação para isso...

Sub C_Regressiva()
Cells(1, 1) = 60
For i = 1 To 60
Application.Wait Now + TimeSerial(0, 0, 1)
Cells(1, 1) = Cells(1, 1) - 1
Next
End Sub