Can anyone tell me why the following code cannot work in Function but ok in
a Sub?
In Function, the statement
Workbooks("testing.xls").Activate
doesn't work, but ok in Sub

Thanks

Function no_of_HK_working_day(date1 As Date, date2 As Date, half_sat As
Double)

Set wb_current = ActiveWorkbook
Workbooks("testing.xls").Activate
Set wb_holiday = ActiveWorkbook
wb_current.Activate

End Function

Do you mean running that function from a worksheet? If so, it is because
worksheet functions cannot make changes to the workbook or worksheets other
than returning a value to that cell.

If you ran that function from within VBA, it should work okay.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"new.microsoft.com" wrote in message
...
Can anyone tell me why the following code cannot work in Function but ok
in
a Sub?
In Function, the statement
Workbooks("testing.xls").Activate
doesn't work, but ok in Sub

Thanks

Function no_of_HK_working_day(date1 As Date, date2 As Date, half_sat As
Double)

Set wb_current = ActiveWorkbook
Workbooks("testing.xls").Activate
Set wb_holiday = ActiveWorkbook
wb_current.Activate

End Function