Cronometro para excel

'DEBES USAR UN MACRO QUE SE LLAME A SÍ MISMA CADA SEGUNDO. EJ:
Public total_segundos As Integer
Public salir As Boolean
Sub decremento()
If (Not total_segundos > 0) And salir <> True Then
    total_segundos = 10 'cinco minutos
    If Not salir Then
        Application.OnTime Now + TimeValue("00:00:01"), "decremento"
    End If
Else
    If salir <> True Then
        Application.OnTime Now + TimeValue("00:00:01"), "decremento"
    Else
        Cells(1, 1) = 0
        salir = False
        Application.Run "Bloquearcelda"
        Exit Sub
    End If
End If
Cells(1, 1) = Format(total_segundos / 86400, "hh:mm:ss")
total_segundos = total_segundos - 1
If total_segundos = 0 Then salir = True
End Sub
Sub Bloquearcelda()
'acá tu código para bloquear la celda o hacer lo que tengas que hacer
MsgBox "Fin"
End Sub