Function NextDate(nmonth, nTh, myday)
    '*************************************************
    'thanks to
    'http://michaelthompson.org/technikos/holidays.php
    '*************************************************
    Select Case myday
        Case "Mon"
            nTargetday = 2
        Case "Tue"
            nTargetday = 3
        Case "Wed"
            nTargetday = 4
        Case "Thu"
            nTargetday = 5
        Case "Fri"
            nTargetday = 7
        Case "Sat"
            nTargetday = 0
        Case "Sun"
            nTargetday = 1
    End Select
    nyear = Year(Date)
    nEarliestDate = 1 + 7 * (nTh - 1)
    nWeekday = Weekday(DateValue(nEarliestDate & "/" & nmonth & "/" & nyear), vbSunday)
    If nWeekday = nTargetday Then
        noffset = 0
    ElseIf nTargetday < nWeekday Then
        noffset = nTargetday + (7 - nWeekday)
    Else
        noffset = (nTargetday + (7 - nWeekday)) - 7
    End If
    nextD = nEarliestDate + noffset & " " & MonthName(nmonth, True) & " " & nyear
    NextDate = nextD
End Function