Hello,

I used the below code, to run workdays query, but I continue to get the message that MyNetWorkDays is Undefined Function. Maybe someone can spot where I got the code wrong.

Thank you,

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

    Dim D As Date, OKToAdd as Boolean, H as Long

    MyNetWorkDays = 0
    D = StartDate
    While D <= EndDate
    OKToAdd = False


'Mon thru Friday
        If Weekday(D) > 1 And Weekday(D) < 7 Then OKToAdd = True

'Static Holiday'
If Month (D) = 1 And Day (D) =1 then OKToAdd = False 'New Years Day'
If Month (D) = 6 And Day (D) =19 then OKToAdd = False 'Juneteenth'
If Month (D) = 7 And Day (D) =4 then OKToAdd = False 'Independence'
If Month (D) = 11 And Day (D) =11 then OKToAdd = False 'Veterans'
If Month (D) = 12 And Day (D) =25 then OKToAdd = False 'Christmas'


If OKToAdd Then MyNetworkDays = MyNetworkDays + 1

        D = D + 1

Wend

' Holidays in Table
H = Nz (DCount("*","tblHolidays","HolidayDate Between #" & StartDate & _
"# AND #" & EndDate & "#"), 0)
MyNetworkDays =  MyNetworkDays - H

End Function