Added a routine to Bob's ..

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

Function NumWord(x)

For i = 1 To Len(x)

If i < 2 Then
NumWord = GetDigit(Mid(x, i, 1))
Else
NumWord = NumWord & " " & GetDigit(Mid(x, i, 1))
End If
Next i

End Function

Use the above two functions. The first one (GetDigit) is by Bob Phillips.

A1 = 123
usage:
=numword(A1)


Mangesh




"JCP" wrote in message
...
Hi

Thanks but is not literal, I need for example if the number is 7648 I need
Six four eight. The common is Six hundred... I dont' need that just every
number as is.

Thanks.

"mangesh_yadav" wrote:


http://tinyurl.com/8n4fz

by Bob Phillips


Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile:
http://www.excelforum.com/member.php...o&userid=10470
View this thread:
http://www.excelforum.com/showthread...hreadid=378884