View Single Post
  #18   Report Post  
Posted to microsoft.public.excel.misc
Bernd P Bernd P is offline
external usenet poster
 
Posts: 806
Default 1st and 2nd.... positions

Hello,

Why not
Function Ordinal2(Cell As Range) As String
Ordinal2 = Cell.Value & Mid("thstndrdthththththth", 1 + 2 *
Right(Cell.Value, 1), 2)
End Function
?

Regards,
Bernd