Hola amigos estoy realizando una aplicación donde necesito programar una cuenta atras , para ello necesitaria poner una hora de inicio y una hora de final, con la resta que comenzara una cuenta atras , digamos yo programo que a las 10:03:00 comience y finalice a las 10:30:00 con ese resultado que es 00:27:00 me haga una cuenta atras.

Así consigues la diferencia en minutos o en segundos:

Código:

  Dim T1 As String
  Dim T2 As String
  Dim EnMinutos As Long
  Dim EnSegundos As Long
  T1 = "10:03:00"
  T2 = "10:30:00"
  
  EnMinutos = DateDiff("n", T1, T2)
  EnSegundos = DateDiff("s", T1, T2)

Saludos

Hola, si no has podido resolver problemilla, te paso un código que hará lo que dices. Está preparado para ponerlo en un Módulo de Excel, donde deberás poner la hora inicial en B1 y la final en B2. La cuenta atrás te aparecerá en C1. Claro está que podrás modificar a tu antojo la forma de presentación, cambiando los rangos correspondientes en el código, o bien, usando un UserForm y poner el código en un módulo de clase. Ahí va:

Sub cuentaAtras()
Dim miDif As Integer, i As Integer, miHora As Date, espera As Date
On Error Resume Next
If Range("b2") < Range("b1") Then
MsgBox "La hora final debe ser superior a la inicial", vbCritical
Exit Sub
End If
miDif = DateDiff("s", Range("b1"), Range("b2"))
For i = o To miDif
miHora = TimeSerial(Hour(Range("b1")), Minute(Range("b1")), Second(Range("b1")) + i)
Range("c1") = Range("b2") - miHora
espera = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
Application.Wait espera
Next i
End Sub