Okay, thanks. It worked. Problem is, I have no idea how it worked. You have a module as follows:
Public Function GetDate() As Date
Select Case Day(DateAdd("w", -5, Date))
Case Is = 1
GetDate = Date - 7
Case Is = 6
GetDate = Date - 6
Case Else
GetDate = Date - 5
End Select
End Function
I...