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