Public Function DateAdd(Interval As String, Number As Double, Date1 As Variant) As Variant
Dim nStep As Integer
Dim nCount As Long
If StrComp(Interval, "WD", vbTextCompare) Then
DateAdd = VBA.DateAdd(Interval, Number, Date1)
Else
nStep = Sgn(Number)
If nStep Then
nCount = Abs(Number)
DateAdd = Date1 + nStep
Do While nCount
If Not IsHoliday(DateAdd) Then
nCount = nCount - 1
End If
If nCount Then
DateAdd = DateAdd + nStep
End If
Loop
Else
DateAdd = Date1
End If
End If
End Function