If/Then based on day of week

Topic

New Reply

Hello all,

Is there a way to have a macro run a certain set of commands based on the day of the week?

For example, If the day of the week is Monday, I want it to run something different than it would on a Tuesday.

Thanks!

Reply | Quote

Replies

You can test Weekday(Date):

Code:

Sub Test()
  Select Case Weekday(Date)
	Case vbSunday
  	' Code for Sunday
	Case vbMonday
  	' Code for Monday
	Case vbTuesday
  	' Code for Tuesday
	Case vbWednesday
  	' Code for Wednesday
	Case vbThursday
  	' Code for Thursday
	Case vbFriday
  	' Code for Friday
	Case vbSaturday
  	' Code for Saturday
  End Select
End Sub

Reply | Quote

You can test Weekday(Date):

Code:

Sub Test()
  Select Case Weekday(Date)
	Case vbSunday
  	' Code for Sunday
	Case vbMonday
  	' Code for Monday
	Case vbTuesday
  	' Code for Tuesday
	Case vbWednesday
  	' Code for Wednesday
	Case vbThursday
  	' Code for Thursday
	Case vbFriday
  	' Code for Friday
	Case vbSaturday
  	' Code for Saturday
  End Select
End Sub

That worked great. Thanks!

Reply | Quote