Hi,
What did I overlook since the ISOweeknumber function returns week 53 for the date 12/30/2019?
Public Function ISOweeknumber(Dt As Date) As Long
ISOweeknumber = DatePart("ww", Dt, vbMonday, vbFirstFourDays)
End Function
Sub FindWeekNumber()
Dim Dt1 As Date, Dt2 As Date, Dt3 As Date...