Help with Application.Worksheet Function

[Clemens]

Hi friends,

I am facing an issue with Application.WorksheetFunction.WorkDay function.When i am trying to use the same code in Excel 2000 i am not able to use the soem functions in it.

Following is the code

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

[Vibhas]

Sure i will help you out with this try to make a reference to atpvbaen.xls


Intel Dual core 2.66 Ghz
915 MSI Motherboard with Intel chipset
512 mb RAM
80gb HDD

[Clemens]

I try to made a reference to atpvbaen.xls after that what i need to do

[Vibhas]

I forget to tell you, now remove:

Application.WorksheetFunction.

before Wrkday.


Intel Dual core 2.66 Ghz
915 MSI Motherboard with Intel chipset
512 mb RAM
80gb HDD