You are treating it like worksheet functions Jim.

The last line should not be in quotes

Function SpDate(MyDate As Date) As String
Dim MYr As String
Dim MWk As String
Dim MDy As String
MYr = Year(MyDate)
MWk = Round((MyDate - DateSerial(Year(MyDate), 1, 1)) / 7, 0)
MDy = Day(MyDate)
SpDate = MYr & " / " & MWk & " / " & MDy
End Function


--

HTH

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


"Jim May" wrote in message
news:JkImd.1120$wC.939@lakeread08...
with 3/15/04 (formated date) in Cell B5
and =Spdate(B5) in D5 -- results -- #VALUE! 'Help

Function SpDate(MyDate As Date) As String
Dim MYr As String
Dim MWk As String
Dim MDy As String
MYr = Year(MyDate)
MWk = Round((MyDate - DateSerial(Year(MyDate), 1, 1)) / 7, 0)
MDy = Day(MyDate)
SpDate = "MYr&" / "&MWk&" / "&MDy"
End Function