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