the Date function returns a date type value consisting of something like this, 05/14/2006, depending on your system settings.

It will never equal "Sunday".

You will want to use the WeekDay function instead of the actual Date.

VB Code:
  1. If Weekday(Date) = vbSunday Then 'vbSunday = 1. vbMonday = 2, etc.