Run macro on excel open if after certain time

[Steve]

I already use this code to execute a macro if the date is Friday. I
want to amend it so that it will run only if it is before 11:00
If (Weekday(Now) = vbFriday) And Sheet5.Range("fri_weather").Value =
"" Then [Friday]

Thanks for nay help you may provide.

Thanks, Steve

 

[JE McGimpsey]

One way:

If Sheet5.Range("fri_weather") = vbNullString Then _
If WeekDay(Date) = vbFriday Then _
If Time < TimeSerial(11, 0, 0) Then _
[Friday]

 

[Guest]

Try something like:

Sub tcheck()
Dim v As Double
v = Now()
tm = v - Int(v)
If tm > 0.45833 Then
MsgBox ("too late - after 11:00 AM")
Else
MsgBox ("its before 11:00 AM")
End If
End Sub

 

[Steve]

One way:

If Sheet5.Range("fri_weather") = vbNullString Then _
If WeekDay(Date) = vbFriday Then _
If Time < TimeSerial(11, 0, 0) Then _
[Friday]

I already use this code to execute a macro if the date is Friday. I
want to amend it so that it will run only if it is before 11:00
If (Weekday(Now) = vbFriday) And Sheet5.Range("fri_weather").Value =
"" Then [Friday]

Thanks for nay help you may provide.

Thanks, Steve- Hide quoted text -

- Show quoted text -

Thank You Very Much JE . It works perfectly ! Steve