Thanks for ur prompt respons
I would like to tell that i used thi
formula:=HoursWorked(A2;A3;TIME(7;30;0);TIME(15;30 ;0);AR3:AS3)


when i run it it's stop in this step:

Private Function GetWorkdays(Date1 As Long, Date2 As Long, _
Optional Holidays As Range = Nothing) As Long

'NB: Thursday and Friday are weekend days, so add 2 to the dates
'when calling NETWORKDAYS so the ATP function will think Thu and Fri
'are Sat and Sun, and thus not working days

If Holidays Is Nothing Then
GetWorkdays = NETWORKDAYS(Date1 + 2, Date2 + 2)
Else
GetWorkdays = NETWORKDAYS(Date1 + 2, Date2 + 2, Holidays)
End If
End Function


With this error Message: Sub or Function not defined

hope u can put the examble i gave u in excel & post it here pls



Thanks
WAITING
SAMI :confused

--
Sambus
-----------------------------------------------------------------------
Sambusa's Profile: http://www.excelforum.com/member.php...fo&userid=1496
View this thread: http://www.excelforum.com/showthread.php?threadid=26588

I'm assuming it stopped on the line that includes NETWORKDAYS.

We've gone through all of this before!!

YOU MUST INSTALL THE ANALYSIS TOOL PACK. That's where the NETWORKDAYS function
is found. In the VB Editor, go to Tools/References, and check it on the list.

You say you had the function working in the past but the result was wrong.
That means you had done this before. I guess you must have pasted the new
function into a new workbook. You have to set the reference to ATP for every
workbook that contains a macro that uses its functions.

Remember also, for the holiday list, you must add 2 to each of the dates on
that list to handle the fact that your weekend days are Thu and Fri.


On Tue, 12 Oct 2004 00:34:31 -0500, Sambusa
wrote:


Thanks for ur prompt respons
I would like to tell that i used this
formula:=HoursWorked(A2;A3;TIME(7;30;0);TIME(15;3 0;0);AR3:AS3)


when i run it it's stop in this step:

Private Function GetWorkdays(Date1 As Long, Date2 As Long, _
Optional Holidays As Range = Nothing) As Long

'NB: Thursday and Friday are weekend days, so add 2 to the dates
'when calling NETWORKDAYS so the ATP function will think Thu and Fri
'are Sat and Sun, and thus not working days

If Holidays Is Nothing Then
GetWorkdays = NETWORKDAYS(Date1 + 2, Date2 + 2)
Else
GetWorkdays = NETWORKDAYS(Date1 + 2, Date2 + 2, Holidays)
End If
End Function


With this error Message: Sub or Function not defined

hope u can put the examble i gave u in excel & post it here pls



Thanks
WAITING
SAMI

When I compile my VBA and sent it out to users, do the users have to install
the Analysis Tool Pack in their copy of the VBA project in order to use any
part of the Excel forms I created?

Not unless you call functions from the analysis toolpak.

--
Regards,
Tom Ogilvy

"jenelle" wrote in message
...
When I compile my VBA and sent it out to users, do the users have to
install
the Analysis Tool Pack in their copy of the VBA project in order to use
any
part of the Excel forms I created?