Application.OnTime : attempt to avoid loops

[Nelson78]

Hello everybody.

I need my macro "Test" running every day at 11:30.

Writing in ThisWorkbook

Private Sub Workbook_Open()

Application.OnTime TimeValue("11:30"), "Test"

End Sub

is not a good idea: it does not work, probably because of a loop.


So, I've tried to identify univocally date and time.
In the Sheet1, cell A42 I've inserted the formula
=TODAY ()
in the cell A43 I've inserted the value
11:30


Then, in ThisWorkbook:

Private Sub Workbook_Open()

Application.OnTime DateValue.Sheets("Sheet1").Range("A42") + TimeValue.Sheets("Sheet1").Range("A43"), "Test"

End Sub

But the result is negative.


Any suggestions?