VBA Function Code

[Dano60]

Hi,

I fixed it by adding the Bold red Then

If tempDate < CDate("6/15/" & Year(Date)) Then
CalcDateTerminaison = CDate("6/15/" & Year(Date))
ElseIf tempDate > DateExp Then
CalcDateTerminaison = DateExp
Else
CalcDateTerminaison = tempDate
End If

Thanks very much for your help.



Dan

[June7]

Doh! I should have seen that - case of seeing what is expected even if it isn't there. Sorry it was omitted from my example. Glad you figured it out.

[Dano60]

Thanks again