Paste the function below in a module
Function GetMonthfromDayofWeek(WkNum As Integer, DyOfWk As Integer, Yr As Integer) As Integer
GetMonthfromDayofWeek = Month(CDate((DateSerial(Yr, 1, 1) + ((WkNum - 1) * 7)) + DyOfWk - Weekday(DateSerial(Yr, 1, 1))))
End Function
and use like this in your...