Sub timeTRY()
If Cells(1, 1) < Date + TimeValue("13:00:00") Then
MsgBox "Too early"
ElseIf Cells(1, 1) > Date + 1 + TimeValue("01:45:00") Then
MsgBox "Too late"
Else
MsgBox "In range"
End If
End Sub
Private Sub Workbook_Open()
timeTRY
End Sub
Sub Macro1()
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]>R[1]C[-1],RC[-1].....<R[1]C[-1]),""Y"",""N"")"< p> Range("B2").Select
End Sub
Hi, Possibly !!
MickCode:If Date = "My Date" Then Application.OnTime TimeValue("17:00:00"), "my_Procedure" End If