This is the free version of MyNetWorkDays as shown in my Work Days TechHelp video:

Public Function MyNetWorkDays(StartDate As Date, EndDate As Date) As Long

    Dim D As Date

    MyNetWorkDays = 0
    D = StartDate
    While D <= EndDate
        If Weekday(D) > 1 And Weekday(D) < 7 Then MyNetWorkDays = MyNetWorkDays + 1
        D = D + 1
    Wend

End Function

Usage:

DaysWorked = myNetWorkDays(#1/1/2020#,#1/31/2020#)

Video Reference:

• Work Days TechHelp
• DateTime Seminar