According to help, that's not included in the worksheet functions available
to VBA. Use the VBA function Ucase.

hth,

Doug

"y" wrote in message ...
Function Test(Classe, osserv As Range, Dst As String, ParA, ParB) As
Single
...
Dist as string
...
Dist = Application.WorksheetFunction.Upper(Dst)
...

executing the "Dist = ..." statement VBA stops abnormally (without any
message)

Have you encountered this problem?

Alex.