Thanks for all your replys!
I have now substituted and using the function:
Code
-------------------
Function VBAWeekNum(D As Date, FW As Integer) As Integer
VBAWeekNum = CInt(Format(D, "ww", FW))
End Function
-------------------
But I am still getting the ByRef mismiatch error, the date in the cel
is stored as text and in format 16032006.
Any ideas??
--
gti_jober
-----------------------------------------------------------------------
gti_jobert's Profile:
http://www.excelforum.com/member.php...fo&userid=3063
View this thread:
http://www.excelforum.com/showthread.php?threadid=52266