FYI: Here is a more condensed method of getting the SystemDayOfWeek:
Public Function SystemDayOfWeek() As Integer
Dim tmpSDOW
tmpSDOW = Weekday(Date, vbSunday) - Weekday(Date, vbUseSystemDayOfWeek)
If tmpSDOW < 0 Then SystemDayOfWeek = tmpSDOW + 8 Else SystemDayOfWeek = tmpSDOW + 1...