Hi
I tried what you advised me:
*****************************************************
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(DateReceivedIYFAForm) Then
Exit Function...