Hi d,
Thank you but no luck, few items I had to re-enter not sure if you missed if or was it not meant to be there. I got an error message also, I' v attached the file.
Private Function MyDay()
Dim rs As DAO.Recordset, iDay As Integer, strSQL As String, strDayField As String ' entered Dim...