Timevalue with specific date

[becklog]

Hi,
I need some help with the code below. Would it be possible to add a date on this code?
I tried to format the cells to mm/dd/yyyy hh:mm but it's not working as intended. When I ran the macro, it will ignore the date that was set and will just follow the time set. Is there anyway to add a date to this macro? Thanks!
Private Sub Second()
Application.OnTime TimeValue(Range("A1").Text), "Test1"
Application.OnTime TimeValue(Range("A2").Text), "Test2"
Application.OnTime TimeValue(Range("A3").Text), "Test3"
Application.OnTime TimeValue(Range("A4").Text), "Test4"
Application.OnTime TimeValue(Range("A5").Text), "Test5"
Application.OnTime TimeValue(Range("A6").Text), "Test6"

 

[becklog]

Hi,
I need some help with the code below. Would it be possible to add a date on this code?
I tried to format the cells to mm/dd/yyyy hh:mm but it's not working as intended. When I ran the macro, it will ignore the date that was set and will just follow the time set. Is there anyway to add a date to this macro? Thanks!
Private Sub Second()
Application.OnTime TimeValue(Range("A1").Text), "Test1"
Application.OnTime TimeValue(Range("A2").Text), "Test2"
Application.OnTime TimeValue(Range("A3").Text), "Test3"
Application.OnTime TimeValue(Range("A4").Text), "Test4"
Application.OnTime TimeValue(Range("A5").Text), "Test5"
Application.OnTime TimeValue(Range("A6").Text), "Test6"

I think I found the answer.

 

[zrx1200]

I think I found the answer.

Care to share this answer you found?

 

[becklog]

Care to share this answer you found?

Just found out that other than TimeValue there is also DateValue which allows you to set a specific date for the command to execute.

Application.OnTime DateValue (Range("A2").Text) + TimeValue(Range("A1").Text), "Test1"