Analysis toolpack functions in VBA

[yuryyuryyury]

I posted this question here: http://www.excelforum.com/showthread.php?t=606867 But haven't gotten any replies. Maybe someone here can help?

Here is some code that I am using to define some holidays:

Dim holidayDictionary As Object

Sub LoadHolidays()
    If (holidayDictionary Is Nothing) Then
        Set holidayDictionary = CreateObject("Scripting.Dictionary")
        holidayDictionary.Add #7/4/2007#, Null
        'more holidays can be entered here
    End If
End Sub

Function ISHOLIDAY(d As Date)
    LoadHolidays
    ISHOLIDAY = holidayDictionary.Exists(d)
End Function

Function ISWORKDAY(d As Date)

    Dim weekday As Integer
    weekday = DatePart("w", d, vbUseSystemDayOfWeek, vbUseSystem)

    If ((weekday = vbSaturday) Or (weekday = vbSunday)) Then
        ISWORKDAY = False
    Else
        ISWORKDAY = Not ISHOLIDAY(d)
    End If
End Function

Function NEXTTRADEDAY(d As Date, numOfDays As Integer) As Double
    'Set holidayDictionary = Nothing
    LoadHolidays
    NEXTTRADEDAY = Application.WorksheetFunction.WorkDay(d, numOfDays, holidayDictionary.Keys)
End Function

This last portion, NEXTTRADEDAY, worked on excel 2007, but doesn't work on excel 2002. What method does excel 2002 prefer to call up analysis tool pack functions?[/code]

 

[Andrew Poulsom]

In Excel 2002 set a reference to atpvbaen.xls. Then remove:

Application.WorksheetFunction.

before Wrkday.

 

[yuryyuryyury]

Worked like a charm! thank you!