Solution
Hi
I added the following to my code
Function AddWkDays(varDate As Variant, numdays As Integer, _
Optional pexclude As String = "17") As Date
Dim thedate As Date, n As Integer, incl As Boolean
If IsNull(varDate) Then
Exit Function
End If
thedate = DateValue(varDate)
incl = False...