IsWeek (2)

Select Case WeekDay(Now)
Case vbSunday
....
Case vbSaturday
....
....
End Select