Timer en Excel

[abrahamvj]

Suponiendo que en B2 han colocado, por ejemplo 00:59 o el formato que deseen, y para que "retroceda" segundo a segundo:

Dim tiempo As Date

Sub crono()
tiempo = Now + TimeValue("00:00:01")
Application.OnTime tiempo, "calcular"
End Sub

Sub calcular()
Range("b2").Value = Range("b2").Value - 1.15740740740805E-05
If Range("b2").Value <= 0 Then
Range("b2") = "00:00:00"
End If
Call crono
End Sub

Abraham