VBA Code to run on the hour within range of hours

[borski88]

I'd like a macro to be pulled at exactly the start of a new hour between the nightshift hours of 18:00-06:00. I found the following code, but not sure how to make it repeat each hour:

Sub Timer()
    'first call appropriate procedure
    Call myProcedure
    
    'next, set new calling time
    Application.OnTime TimeValue("18:00:00"), "Timer"
End Sub

Sub myProcedure()

MsgBox "Test Sucessful"

End Sub

 

[mart37]

t = Now()
h = Hour(t) + 1
m = 0
s = 0
If Not (h > 6 And h < 18) Then  Application.OnTime TimeValue(TimeSerial(h, m, s)), "timer"