VBA if Today is Monday then code, if Thursday then code

[stoutbn]

For some reason, I cannot get any forums' posts to work in my code. Keep getting errors. But as my Title explains, I simply want to know if the day today is Monday, then to run a certain code, if it is Thursday, then to run a different line of code. Have tried using the weekday function but have had no luck.

Please dumb down any responses as I am fairly new to VBA. Thank you!

 

[Roderick_E]

VBA?

Sub tester()
If Format(Now(), "DDD") = "MON" Then
'run monday code

endif
If Format(Now(), "DDD") = "Thu" Then
'run thursday code

endif

End Sub

 

[stoutbn]

Worked great thank you!

 

[GTO]

Just another take:

Sub example()
  Select Case Weekday(Date, vbMonday)
  Case 1
    MsgBox "Today is Monday; we'll run that code"
  Case 2
    MsgBox "Today is Tuesday; we'll run that code"
  Case 3
    'and so on...
  End Select
End Sub

 

[Roderick_E]

I want to learn CASE a bit more, how does it know that CASE 2 is Tuesday? Does the Select Case(Date, vbMonday) assume case 2 is VbTuesday in sequence?

 

[GTO]

@ Roderick_E:

Greetings Roderick,

Weekday() returns a variant/Integer and in this case, I set Monday as day 1 of the week. So yes, if it is Tuesday, Weekday() will return 2 and so on.

Hope that helps,

Mark