La función VBA Time devuelve la hora actual del sistema.
Time
Guardemos el tiempo obtenido por la función Time en la celda A1:
Sub TimeExample1() Range("A1") = Time End Sub
Visualización del tiempo obtenido por la función Time en formato de texto:
Sub TimeExample2() MsgBox Format(Time, "hh\hnn") 'Devuelve, por ejemplo: 13:24 End Sub
Realizaremos la acción solo si ahora son al menos las 17:00:
Sub TimeExample3() If Hour(Time) >= 17 Then MsgBox "¡El día casi ha terminado!" End If End Sub