Experts Exchange connects you with the people and services you need so you can get back to work.
Improve company productivity with a Business Account.Sign Up
If Weekday(Date, vbmonday) < 6 then Application.OnTime TimeValue("08:00:00"), "Macro5"
Open in new window
'Application.OnTime TimeSerial(8, 0, 0), "Macro5" 'Run the Import macro at 8 AM
Application.OnTime TimeValue("08:00:00"), "checkDay"
If Weekday(Now(), vbMonday) > 5 Then
Dim dow As Integer
dow = Format(Now, "w")
If dow = 1 Or dow = 7 Then
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.