Comments on: Two best ways to convert numbers to words in Excel

Comments page 4. Total comments: 530

1. 

   lakshman says:
   2021-02-17 at 5:34 am

   MyNumber = Trim(Str(MyNumber))
   DecimalPlace = InStr(MyNumber, ".")
   If DecimalPlace > 0 Then
   Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
   "00", 2))
   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
   Count = 1
   Do While MyNumber ""
   Temp = GetHundreds(Right(MyNumber, 3))
   If Temp "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 3 Then
   MyNumber = Left(MyNumber, Len(MyNumber) - 3)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   Do While MyNumber ""
   Temp = GetHundreds(Right(MyNumber, 2))
   If Temp "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 2 Then
   MyNumber = Left(MyNumber, Len(MyNumber) - 2)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   Loop

   In this code something wrong where we use in Indian Currency there it should come as "one laksh twenty six thousand seven hundred rupees only" but the output is like
   "one hundred twenty six thousand seven hundred rupees only.

   where exactly the code has to change ... can anyone support me for clear the issue.

2. 

   lakshman says:
   2021-02-17 at 5:33 am

   Option Explicit
   'Main Function
   Function SpellNumber(ByVal MyNumber)
   Dim Rupees, Paise, Temp
   Dim DecimalPlace, Count
   ReDim Place(9) As String
   Place(2) = " Thousand "
   Place(3) = " Lakh "
   Place(4) = " Crore "

   MyNumber = Trim(Str(MyNumber))
   DecimalPlace = InStr(MyNumber, ".")
   If DecimalPlace > 0 Then
   Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
   "00", 2))
   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
   Count = 1
   Do While MyNumber ""
   Temp = GetHundreds(Right(MyNumber, 3))
   If Temp "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 3 Then
   MyNumber = Left(MyNumber, Len(MyNumber) - 3)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   Do While MyNumber ""
   Temp = GetHundreds(Right(MyNumber, 2))
   If Temp "" Then Rupees = Temp & Place(Count) & Rupees
   If Len(MyNumber) > 2 Then
   MyNumber = Left(MyNumber, Len(MyNumber) - 2)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   Loop

   Loop
   Select Case Rupees
   Case ""
   Rupees = ""
   Case "One"
   Rupees = "One Rupee"
   Case Else
   Rupees = Rupees & " Rupee"
   End Select
   Select Case Paise
   Case ""
   Paise = " Only"
   Case "One"
   Paise = " One Paise Only"

   Case Else
   Paise = " and " & Paise & " Paise Only"
   End Select
   SpellNumber = Rupees & Paise
   End Function

   Function GetHundreds(ByVal MyNumber)
   Dim Result As String
   If Val(MyNumber) = 0 Then Exit Function
   MyNumber = Right("000" & MyNumber, 3)
   ' Convert the hundreds place.
   If Mid(MyNumber, 1, 1) "0" Then
   Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
   End If
   ' Convert the tens and ones place.
   If Mid(MyNumber, 2, 1) "0" Then
   Result = Result & GetTens(Mid(MyNumber, 2))
   Else
   Result = Result & GetDigit(Mid(MyNumber, 3))
   End If
   GetHundreds = Result
   End Function

   Function GetTens(TensText)
   Dim Result As String
   Result = "" ' Null out the temporary function value.
   If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
   Select Case Val(TensText)
   Case 10: Result = "Ten"
   Case 11: Result = "Eleven"
   Case 12: Result = "Twelve"
   Case 13: Result = "Thirteen"
   Case 14: Result = "Fourteen"
   Case 15: Result = "Fifteen"
   Case 16: Result = "Sixteen"
   Case 17: Result = "Seventeen"
   Case 18: Result = "Eighteen"
   Case 19: Result = "Nineteen"
   Case Else
   End Select
   Else ' If value between 20-99...
   Select Case Val(Left(TensText, 1))
   Case 2: Result = "Twenty "
   Case 3: Result = "Thirty "
   Case 4: Result = "Forty "
   Case 5: Result = "Fifty "
   Case 6: Result = "Sixty "
   Case 7: Result = "Seventy "
   Case 8: Result = "Eighty "
   Case 9: Result = "Ninety "
   Case Else
   End Select
   Result = Result & GetDigit _
   (Right(TensText, 1)) ' Retrieve ones place.
   End If
   GetTens = Result
   End Function

   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

   In this code something wrong where we use in Indian Currency there it should come as "one laksh twenty six thousand seven hundred rupees only" but the output is like
   "one hundred twenty six thousand seven hundred rupees only.

   where exactly the code has to change ... can anyone support me for clear the issue.

3. 

   sheva says:
   2021-02-16 at 8:34 am

   Hi

   how to set excel formulas number to word in Malaysia Ringgit.

   sample: RM 3181.60
   three thousand one hundred eighty one and cents sixty only

   sample: RM20.00
   twenty ringgit only

   (how to set?) please help to set this.

4. 

   Mohammad Sohel says:
   2021-02-10 at 4:42 am

   it works only those files where I applied this code. but when I open another/new file it not works.

   1. 

      Alexander Trifuntov (Ablebits Team) says:
      2021-02-10 at 8:29 am

      Hi,
      You need to place the code in each file, or use add-in as described in the manual above.
      Please check out the following article on our blog, it’ll be sure to help you with your task: Personal Macro Workbook in Excel - make macros available in all workbooks.

5. 

   Narasi says:
   2021-02-07 at 6:20 am

   Thank you. Very useful utility

6. 

   LINDO ALEX says:
   2021-02-06 at 2:33 pm

   3 Decimal.
   Bahraini Dinar

   Option Explicit
   'Main Function
   Function SpellNumber(ByVal MyNumber)
   Dim Dinar, fils, Temp
   Dim DecimalPlace, Count
   ReDim Place(9) As String
   Place(2) = " Thousand "
   Place(3) = " Million "
   Place(4) = " Billion "
   Place(5) = " Trillion "
   ' String representation of amount.
   MyNumber = Trim(Str(MyNumber))
   ' Position of decimal place 0 if none.
   DecimalPlace = InStr(MyNumber, ".")
   ' Convert cents and set MyNumber to Dinar amount.
   If DecimalPlace > 0 Then
   fils = GetHundreds(Left(Mid(MyNumber, DecimalPlace + 1) & _
   "000", 3))
   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
   Count = 1
   Do While MyNumber ""
   Temp = GetHundreds(Right(MyNumber, 3))
   If Temp "" Then Dinar = Temp & Place(Count) & Dinar
   If Len(MyNumber) > 3 Then
   MyNumber = Left(MyNumber, Len(MyNumber) - 3)
   Else
   MyNumber = ""
   End If
   Count = Count + 1
   Loop
   Select Case Dinar
   Case ""
   Dinar = "No Dinar"
   Case "One"
   Dinar = "One Dinar"
   Case Else
   Dinar = Dinar & " Dinar"
   End Select
   Select Case fils
   Case ""
   fils = " and No fils"
   Case "One"
   fils = " and One fils"
   Case Else
   fils = " and " & fils & " fils"
   End Select
   SpellNumber = Dinar & fils
   End Function

   ' Converts a number from 100-999 into text
   Function GetHundreds(ByVal MyNumber)
   Dim Result As String
   If Val(MyNumber) = 0 Then Exit Function
   MyNumber = Right("000" & MyNumber, 3)
   ' Convert the hundreds place.
   If Mid(MyNumber, 1, 1) "0" Then
   Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
   End If
   ' Convert the tens and ones place.
   If Mid(MyNumber, 2, 1) "0" Then
   Result = Result & GetTens(Mid(MyNumber, 2))
   Else
   Result = Result & GetDigit(Mid(MyNumber, 3))
   End If
   GetHundreds = Result
   End Function

   ' Converts a number from 10 to 99 into text.
   Function GetTens(TensText)
   Dim Result As String
   Result = "" ' Null out the temporary function value.
   If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
   Select Case Val(TensText)
   Case 10: Result = "Ten"
   Case 11: Result = "Eleven"
   Case 12: Result = "Twelve"
   Case 13: Result = "Thirteen"
   Case 14: Result = "Fourteen"
   Case 15: Result = "Fifteen"
   Case 16: Result = "Sixteen"
   Case 17: Result = "Seventeen"
   Case 18: Result = "Eighteen"
   Case 19: Result = "Nineteen"
   Case Else
   End Select
   Else ' If value between 20-99...
   Select Case Val(Left(TensText, 1))
   Case 2: Result = "Twenty "
   Case 3: Result = "Thirty "
   Case 4: Result = "Forty "
   Case 5: Result = "Fifty "
   Case 6: Result = "Sixty "
   Case 7: Result = "Seventy "
   Case 8: Result = "Eighty "
   Case 9: Result = "Ninety "
   Case Else
   End Select
   Result = Result & GetDigit _
   (Right(TensText, 1)) ' Retrieve ones place.
   End If
   GetTens = Result
   End Function

   ' 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

   1. 

      anni says:
      2023-03-06 at 11:03 am

      hi i cannot make it any one can help

   2. 

      Zaka says:
      2021-08-21 at 3:16 pm

      hi this is zaka working in Dubai, how i convert number to AED in excel
      my number is +971 555 246 286

7. 

   Suman Dev says:
   2021-02-05 at 2:03 pm

   Sir,
   I Need a formulae for qty Incl Kgs, Ltrs and Nos & Amount all. Will you help me

8. 

   ZOE says:
   2021-02-04 at 4:49 am

   Hi

   how to set excel formulas number to word in Malaysia Ringgit.

   sample: RM 3181.6
   three thousand one hundred eighty one and cents sixty only (how to set?)

9. 

   Ash says:
   2021-02-03 at 5:12 am

   How to set excel formulas number to word in a Malaysian Ringgit MYR?

10. 

    Santhosh Kumar Tirunahari says:
    2021-01-31 at 8:34 pm

    Hi Md.Delwar,

    Try this for indian rupees and paises:

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Rupees, Paise, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lakh "
    Place(4) = " Crore "

    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
    Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
    "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp "" Then Rupees = Temp & Place(Count) & Rupees
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 2))
    If Temp "" Then Rupees = Temp & Place(Count) & Rupees
    If Len(MyNumber) > 2 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 2)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop

    Loop
    Select Case Rupees
    Case ""
    Rupees = ""
    Case "One"
    Rupees = "One Rupee"
    Case Else
    Rupees = Rupees & " Rupee"
    End Select
    Select Case Paise
    Case ""
    Paise = " Only"
    Case "One"
    Paise = " One Paise Only"

    Case Else
    Paise = " and " & Paise & " Paise Only"
    End Select
    SpellNumber = Rupees & Paise
    End Function

    Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function

    Function GetTens(TensText)
    Dim Result As String
    Result = "" ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten"
    Case 11: Result = "Eleven"
    Case 12: Result = "Twelve"
    Case 13: Result = "Thirteen"
    Case 14: Result = "Fourteen"
    Case 15: Result = "Fifteen"
    Case 16: Result = "Sixteen"
    Case 17: Result = "Seventeen"
    Case 18: Result = "Eighteen"
    Case 19: Result = "Nineteen"
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1)) ' Retrieve ones place.
    End If
    GetTens = Result
    End Function

    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

11. 

    Mohsin says:
    2021-01-29 at 7:53 am

    its my first attempt and i did it and it is in dollars and i need it in rupees so i replace the "Dollars & Cents" to "Rupees & Paise " and it works . thank u

12. 

    Delin Davy says:
    2021-01-16 at 9:51 am

    Correct one For Indian Rupees:

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Rupees, Paisa, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
    Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
    "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp "" Then Rupees = Temp & Place(Count) & Rupees
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Rupees
    Case ""
    Rupees = "No Rupees"
    Case "One"
    Rupees = "One Rupee"
    Case Else
    Rupees = Rupees & " Rupees"
    End Select
    Select Case Paisa
    Case ""
    Paisa = " and No Paisa"
    Case "One"
    Paisa = " and One Paise"
    Case Else
    Paisa = " and " & Paisa & " Paisa"
    End Select
    SpellNumber = Rupees & Paisa
    End Function

    Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function

    Function GetTens(TensText)
    Dim Result As String
    Result = "" ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten"
    Case 11: Result = "Eleven"
    Case 12: Result = "Twelve"
    Case 13: Result = "Thirteen"
    Case 14: Result = "Fourteen"
    Case 15: Result = "Fifteen"
    Case 16: Result = "Sixteen"
    Case 17: Result = "Seventeen"
    Case 18: Result = "Eighteen"
    Case 19: Result = "Nineteen"
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1)) ' Retrieve ones place.
    End If
    GetTens = Result
    End Function

    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

    1. 

       Anish Shah says:
       2021-02-03 at 3:42 am

       Again Syntax error: Do While MyNumber ""

13. 

    sUBHO says:
    2021-01-12 at 10:20 am

    Do we have to run that code, every time we open a new file?

    Thanks in advance.

14. 

    Bee says:
    2021-01-12 at 3:52 am

    Hello Sir. i got error with VAT 10% i have SUBTOTAL and VAT = GRANDTOTAL ex: 68.18(subtotal) + 6.82(VAT) = 74.00 (GrandTotal) By when convert to Words it show Seventy Four and Ninty Nine Cents how can i fix it ?

    1. 

       Alexander Trifuntov (Ablebits Team) says:
       2021-01-12 at 9:30 am

       Hello!
       The numbers that you see in the table are rounded by Excel taking into account formatting. But this does not change their real values. Therefore, use the ROUND function when calculating totals.
       I hope this will help, otherwise please do not hesitate to contact me anytime.

15. 

    Jo says:
    2021-01-08 at 11:47 pm

    Thank you this was very helpful.

16. 

    Ayubkhan says:
    2021-01-06 at 2:26 pm

    I just want the result to be : For example the amount is 1250 Afghani and i want the words to be One Thousand Two Hundred Fifty AFN Only, No cents are required

17. 

    jalal says:
    2021-01-04 at 11:59 am

    indian rupees and paise

    that is 1100.50 One thousand one hundred and fifty paise only

18. 

    ALI HAIDER KHAN says:
    2020-12-19 at 7:59 am

    excel ma
    1) Alt+f11
    2) insert ma module click karain us ma jo window open hogi us ma nicha jo diya ha woh copy kar ka us ma past kardain
    3) ab koi bhi cell na ja kar =spellNumber(A)
    4) A ki jaga woh cell number dalain jis ko convert karna hai

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Rupees, Paise, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lac "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    ' String representation of amount.
    MyNumber = Trim(Str(MyNumber))
    ' Position of decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Paise and set MyNumber to rupees amount.
    If DecimalPlace > 0 Then
    Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
    "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp "" Then Rupees = Temp & Place(Count) & Rupees
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Rupees
    Case ""
    Rupees = "No Rupees"
    Case "One"
    Rupees = "One Rupees"
    Case Else
    Rupees = Rupees & " Rupees"
    End Select
    Select Case Paise
    Case ""
    Paise = " and No Paise"
    Case "One"
    Paise = " and One Paise"
    Case Else
    Paise = " and " & Paise & " Paise"
    End Select
    SpellNumber = Rupees & Paise
    End Function

    ' Converts a number from 100-999 into text
    Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function

    ' Converts a number from 10 to 99 into text.
    Function GetTens(TensText)
    Dim Result As String
    Result = "" ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten"
    Case 11: Result = "Eleven"
    Case 12: Result = "Twelve"
    Case 13: Result = "Thirteen"
    Case 14: Result = "Fourteen"
    Case 15: Result = "Fifteen"
    Case 16: Result = "Sixteen"
    Case 17: Result = "Seventeen"
    Case 18: Result = "Eighteen"
    Case 19: Result = "Nineteen"
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1)) ' Retrieve ones place.
    End If
    GetTens = Result
    End Function

    ' 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

    1. 

       Anish Shah says:
       2021-02-03 at 3:39 am

       Syntax error on this line: Do While MyNumber ""

19. 

    Jen Ciriaco says:
    2020-12-17 at 11:23 am

    This is great. I'm only having hard time converting centavos, instead of words i need it to be for example 25/100

20. 

    MONIB ANSARI says:
    2020-12-15 at 4:17 pm

    Hi... Can you please tell me how to disable the decimal conversions? i dont want the decimals e.g: 7.82 = Seven dollars and eighty two cents... I want it to read Eight dollars... where the decimals are rounded off.

21. 

    Ali says:
    2020-12-13 at 12:27 pm

    i have done this several time time but today i faild, or maybe because of the excel type, is there anything can be work in all the types of excells?

    cheers,
    Ali

22. 

    babu says:
    2020-12-08 at 5:19 am

    Syntax Error

23. 

    babu says:
    2020-12-08 at 5:16 am

    Indian Rupees not work , Its variable error coming

24. 

    Nauman Wakeel says:
    2020-12-03 at 7:48 am

    i need a code for pakistan rupees conversion having no decimal in it can any one help me to send the code

25. 

    Mahmood says:
    2020-12-02 at 9:02 am

    how to set excel formulas number to word in Bahraini Dinars ?

    I would like to get it as for example (160.525) Bahraini Dinars
    = One Hundred Sixty BD and Five Hundred Twenty Five Fils Only

    Please help me

    Thank you

26. 

    EDEN says:
    2020-11-25 at 3:51 am

    How to set excel formulas number to word in Philippine Peso?

    1. 

       Chivar Pilones says:
       2021-01-07 at 4:22 am

       Option Explicit
       'Main Function
       Function SpellNumber(ByVal MyNumber)
       Dim Pesos, Cents, Temp
       Dim DecimalPlace, Count
       ReDim Place(9) As String
       Place(2) = " Thousand "
       Place(3) = " Million "
       Place(4) = " Billion "
       Place(5) = " Trillion "

       MyNumber = Trim(Str(MyNumber))
       DecimalPlace = InStr(MyNumber, ".")
       If DecimalPlace > 0 Then
       Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
       "00", 2))
       MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
       End If
       Count = 1
       Do While MyNumber ""
       Temp = GetHundreds(Right(MyNumber, 3))
       If Temp "" Then Pesos = Temp & Place(Count) & Pesos
       If Len(MyNumber) > 3 Then
       MyNumber = Left(MyNumber, Len(MyNumber) - 3)
       Else
       MyNumber = ""
       End If
       Count = Count + 1
       Loop
       Select Case Pesos
       Case ""
       Pesos = "No Pesos"
       Case "One"
       Pesos = "One Pesos"
       Case Else
       Pesos = Pesos & " Pesos"
       End Select
       Select Case Cents
       Case ""
       Cents = " and No Cents"
       Case "One"
       Cents = " and One Cent"
       Case Else
       Cents = " and " & Cents & " Cents"
       End Select
       SpellNumber = Pesos & Cents
       End Function

       Function GetHundreds(ByVal MyNumber)
       Dim Result As String
       If Val(MyNumber) = 0 Then Exit Function
       MyNumber = Right("000" & MyNumber, 3)
       ' Convert the hundreds place.
       If Mid(MyNumber, 1, 1) "0" Then
       Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
       End If
       ' Convert the tens and ones place.
       If Mid(MyNumber, 2, 1) "0" Then
       Result = Result & GetTens(Mid(MyNumber, 2))
       Else
       Result = Result & GetDigit(Mid(MyNumber, 3))
       End If
       GetHundreds = Result
       End Function

       Function GetTens(TensText)
       Dim Result As String
       Result = "" ' Null out the temporary function value.
       If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
       Select Case Val(TensText)
       Case 10: Result = "Ten"
       Case 11: Result = "Eleven"
       Case 12: Result = "Twelve"
       Case 13: Result = "Thirteen"
       Case 14: Result = "Fourteen"
       Case 15: Result = "Fifteen"
       Case 16: Result = "Sixteen"
       Case 17: Result = "Seventeen"
       Case 18: Result = "Eighteen"
       Case 19: Result = "Nineteen"
       Case Else
       End Select
       Else ' If value between 20-99...
       Select Case Val(Left(TensText, 1))
       Case 2: Result = "Twenty "
       Case 3: Result = "Thirty "
       Case 4: Result = "Forty "
       Case 5: Result = "Fifty "
       Case 6: Result = "Sixty "
       Case 7: Result = "Seventy "
       Case 8: Result = "Eighty "
       Case 9: Result = "Ninety "
       Case Else
       End Select
       Result = Result & GetDigit _
       (Right(TensText, 1)) ' Retrieve ones place.
       End If
       GetTens = Result
       End Function

       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

27. 

    Perera says:
    2020-11-24 at 6:10 am

    Hi,
    I want to get the word "Only" at the end of the sentence. as an example, One Million One Hundred Seventy One Thousand Nine Hundred Fifty One Rupees and Twenty Cents Only. Can we change the function?

28. 

    Marosh says:
    2020-11-22 at 11:42 pm

    Number to word in Pakistani rupees.

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Rupees, Paisa, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
    Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
    "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp "" Then Rupees = Temp & Place(Count) & Rupees
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Rupees
    Case ""
    Rupees = "No Rupees"
    Case "One"
    Rupees = "One Dollar"
    Case Else
    Rupees = Rupees & " Rupees"
    End Select
    Select Case Paisa
    Case ""
    Paisa = " and No Paisa"
    Case "One"
    Paisa = " and One Paisa"
    Case Else
    Paisa = " and " & Paisa & " Paisa"
    End Select
    SpellNumber = Rupees & Paisa
    End Function

    Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function

    Function GetTens(TensText)
    Dim Result As String
    Result = "" ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten"
    Case 11: Result = "Eleven"
    Case 12: Result = "Twelve"
    Case 13: Result = "Thirteen"
    Case 14: Result = "Fourteen"
    Case 15: Result = "Fifteen"
    Case 16: Result = "Sixteen"
    Case 17: Result = "Seventeen"
    Case 18: Result = "Eighteen"
    Case 19: Result = "Nineteen"
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1)) ' Retrieve ones place.
    End If
    GetTens = Result
    End Function

    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

29. 

    Md. Abul Kalam Azzad says:
    2020-11-19 at 5:04 am

    I would like to get it as for example 5.50 (Five taka Fifty Paissa only) and i am cancel the work sheet excel file close then I am reopen the excel file they did not spell 5.50 (Five taka Fifty Paissa only).

    1. 

       Alexander Trifuntov (Ablebits Team) says:
       2020-11-19 at 7:57 am

       Hello!
       I’m sorry but your task is not entirely clear to me. Could you please describe it in more detail? What result do you want to get? Give an example of the source data and the expected result.
       Thank you!

30. 

    Aemi Sharma says:
    2020-11-18 at 7:56 am

    Done Thanks :)

31. 

    Rashid says:
    2020-11-06 at 7:28 pm

    Sir Kindly give me the format for BHD (Bahraini Dinars )

    I would like to get it as for example 125.500-Bahraini Dinars One Hundred twenty five and Fils 500/1000 Only

32. 

    Shaon Kamal says:
    2020-11-04 at 3:45 am

    how to set excel formulas number to word in Bangladeshi Taka ?

33. 

    Md.Delwar says:
    2020-10-31 at 9:54 am

    How to use crore,lac,thousand,hundred instead of brillion,million thousand

34. 

    Su says:
    2020-10-29 at 7:10 am

    hai, can u help to change currency to Ringgit Malaysia, i've tried to do like your previous comment, but failed.

35. 

    Fatin says:
    2020-10-22 at 1:44 am

    Hello sir,

    Thank you for wonderful formula. I had replaced all dollars to my currency, but I would like to have the currency to be in front of the sentences. Eg, MYR twelve thousand and five cents. Could you please teach me how to do so?

36. 

    Asad says:
    2020-10-16 at 12:24 pm

    how to use it in Pakistani currency (PKR)

37. 

    wai wai says:
    2020-10-14 at 1:05 am

    Hi ,how to set 1234 become NGHX (own fix secret text)

38. 

    Nuwan says:
    2020-10-12 at 9:39 am

    Hi There,
    Its a great function.
    Thank you for sharing.

    Also I need to know, how can i get rid off word "Dollar" and use any other currency Name?

    Kind Regards
    Nuwan

    1. 

       Lynn Ng says:
       2020-10-13 at 7:38 am

       Hi Nuwan,

       How to set as below format:

       For example:

       SGD 2000.09
       in Words: Singapore Dollars Two Thousand and cents Nine Only.

       SGD 2000
       in Words: Singapore Dollars Two Thousand Only.

39. 

    Nuwan says:
    2020-10-12 at 9:25 am

    Hi There,
    I tried as you mentioned above. but its not working.
    Appreciate your help.
    Regards
    Nuwan

40. 

    Lakshitha says:
    2020-10-10 at 7:43 am

    how to set excel formulas number to word in Sri lanka rupees ?

    1. 

       Nuwan says:
       2020-10-12 at 11:23 am

       Option Explicit
       'Main Function
       Function SpellNumber(ByVal MyNumber)
       Dim Rupees, Cents, Temp
       Dim DecimalPlace, Count
       ReDim Place(9) As String
       Place(2) = " Thousand "
       Place(3) = " Million "
       Place(4) = " Billion "
       Place(5) = " Trillion "

       MyNumber = Trim(Str(MyNumber))
       DecimalPlace = InStr(MyNumber, ".")
       If DecimalPlace > 0 Then
       Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
       "00", 2))
       MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
       End If
       Count = 1
       Do While MyNumber ""
       Temp = GetHundreds(Right(MyNumber, 3))
       If Temp "" Then Rupees = Temp & Place(Count) & Rupees
       If Len(MyNumber) > 3 Then
       MyNumber = Left(MyNumber, Len(MyNumber) - 3)
       Else
       MyNumber = ""
       End If
       Count = Count + 1
       Loop
       Select Case Rupees
       Case ""
       Rupees = "No Rupees"
       Case "One"
       Rupees = "One Dollar"
       Case Else
       Rupees = Rupees & " Rupees"
       End Select
       Select Case Cents
       Case ""
       Cents = " and No Cents"
       Case "One"
       Cents = " and One Cent"
       Case Else
       Cents = " and " & Cents & " Cents"
       End Select
       SpellNumber = Rupees & Cents
       End Function

       Function GetHundreds(ByVal MyNumber)
       Dim Result As String
       If Val(MyNumber) = 0 Then Exit Function
       MyNumber = Right("000" & MyNumber, 3)
       ' Convert the hundreds place.
       If Mid(MyNumber, 1, 1) "0" Then
       Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
       End If
       ' Convert the tens and ones place.
       If Mid(MyNumber, 2, 1) "0" Then
       Result = Result & GetTens(Mid(MyNumber, 2))
       Else
       Result = Result & GetDigit(Mid(MyNumber, 3))
       End If
       GetHundreds = Result
       End Function

       Function GetTens(TensText)
       Dim Result As String
       Result = "" ' Null out the temporary function value.
       If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
       Select Case Val(TensText)
       Case 10: Result = "Ten"
       Case 11: Result = "Eleven"
       Case 12: Result = "Twelve"
       Case 13: Result = "Thirteen"
       Case 14: Result = "Fourteen"
       Case 15: Result = "Fifteen"
       Case 16: Result = "Sixteen"
       Case 17: Result = "Seventeen"
       Case 18: Result = "Eighteen"
       Case 19: Result = "Nineteen"
       Case Else
       End Select
       Else ' If value between 20-99...
       Select Case Val(Left(TensText, 1))
       Case 2: Result = "Twenty "
       Case 3: Result = "Thirty "
       Case 4: Result = "Forty "
       Case 5: Result = "Fifty "
       Case 6: Result = "Sixty "
       Case 7: Result = "Seventy "
       Case 8: Result = "Eighty "
       Case 9: Result = "Ninety "
       Case Else
       End Select
       Result = Result & GetDigit _
       (Right(TensText, 1)) ' Retrieve ones place.
       End If
       GetTens = Result
       End Function

       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

41. 

    sandip mangukiya says:
    2020-10-03 at 12:24 pm

    how to set excel formulas number to word in Indian rupees ?

    1. 

       Nuwan says:
       2020-10-12 at 11:25 am

       Option Explicit
       'Main Function
       Function SpellNumber(ByVal MyNumber)
       Dim Indian Rupees, Cents, Temp
       Dim DecimalPlace, Count
       ReDim Place(9) As String
       Place(2) = " Thousand "
       Place(3) = " Million "
       Place(4) = " Billion "
       Place(5) = " Trillion "

       MyNumber = Trim(Str(MyNumber))
       DecimalPlace = InStr(MyNumber, ".")
       If DecimalPlace > 0 Then
       Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
       "00", 2))
       MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
       End If
       Count = 1
       Do While MyNumber ""
       Temp = GetHundreds(Right(MyNumber, 3))
       If Temp "" Then Indian Rupees = Temp & Place(Count) & Indian Rupees
       If Len(MyNumber) > 3 Then
       MyNumber = Left(MyNumber, Len(MyNumber) - 3)
       Else
       MyNumber = ""
       End If
       Count = Count + 1
       Loop
       Select Case Indian Rupees
       Case ""
       Indian Rupees = "No Indian Rupees"
       Case "One"
       Indian Rupees = "One Dollar"
       Case Else
       Indian Rupees = Indian Rupees & " Indian Rupees"
       End Select
       Select Case Cents
       Case ""
       Cents = " and No Cents"
       Case "One"
       Cents = " and One Cent"
       Case Else
       Cents = " and " & Cents & " Cents"
       End Select
       SpellNumber = Indian Rupees & Cents
       End Function

       Function GetHundreds(ByVal MyNumber)
       Dim Result As String
       If Val(MyNumber) = 0 Then Exit Function
       MyNumber = Right("000" & MyNumber, 3)
       ' Convert the hundreds place.
       If Mid(MyNumber, 1, 1) "0" Then
       Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
       End If
       ' Convert the tens and ones place.
       If Mid(MyNumber, 2, 1) "0" Then
       Result = Result & GetTens(Mid(MyNumber, 2))
       Else
       Result = Result & GetDigit(Mid(MyNumber, 3))
       End If
       GetHundreds = Result
       End Function

       Function GetTens(TensText)
       Dim Result As String
       Result = "" ' Null out the temporary function value.
       If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
       Select Case Val(TensText)
       Case 10: Result = "Ten"
       Case 11: Result = "Eleven"
       Case 12: Result = "Twelve"
       Case 13: Result = "Thirteen"
       Case 14: Result = "Fourteen"
       Case 15: Result = "Fifteen"
       Case 16: Result = "Sixteen"
       Case 17: Result = "Seventeen"
       Case 18: Result = "Eighteen"
       Case 19: Result = "Nineteen"
       Case Else
       End Select
       Else ' If value between 20-99...
       Select Case Val(Left(TensText, 1))
       Case 2: Result = "Twenty "
       Case 3: Result = "Thirty "
       Case 4: Result = "Forty "
       Case 5: Result = "Fifty "
       Case 6: Result = "Sixty "
       Case 7: Result = "Seventy "
       Case 8: Result = "Eighty "
       Case 9: Result = "Ninety "
       Case Else
       End Select
       Result = Result & GetDigit _
       (Right(TensText, 1)) ' Retrieve ones place.
       End If
       GetTens = Result
       End Function

       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

       1. 

          Mehul Nakrani says:
          2021-06-01 at 2:14 pm

          its not working in indian rupee.
          getting an error as following,

          Syntax error

       2. 

          HIRAL says:
          2021-02-10 at 6:55 am

          syntax errors

          Dim Indian Rupees, Cents, Temp

          Do While MyNumber ""

          If Temp "" Then Indian Rupees = Temp & Place(Count) & Indian Rupees

          Select Case Indian Rupees

          1. 

             Nawaraj Shrestha says:
             2021-03-14 at 9:46 am

             not working
             syntax errors.

       3. 

          Wasantha says:
          2021-01-26 at 7:13 am

          Great , It working , Thank you for your support

42. 

    biresh says:
    2020-09-20 at 4:44 am

    Thank you for the wonderful formula.
    please help me on how to put the dollar ahead of the numbers.
    i.e.
    Dollar Five Hundred and no cents

43. 

    khan says:
    2020-09-18 at 12:22 pm

    sir how can i get text without any currency

    1. 

       Muzafar says:
       2020-11-11 at 8:08 pm

       Just use this formulla, then copy that text and past it again as value in another cell. Then press 'ctrl+h' and replace "dollars and cents" with "blank".
       I did the same. And Thanks to the editor.

44. 

    Zulfi Farsath says:
    2020-09-16 at 12:39 pm

    Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Dhirams, Cents, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "

    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
    "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp "" Then Dhirams = Temp & Place(Count) & Dhirams
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Dhirams
    Case ""
    Dhirams = "No Dhirams"
    Case "One"
    Dhirams = "One Dhirams"
    Case Else
    Dhirams = Dhirams & " Dhirams"
    End Select
    Select Case Cents
    Case ""
    Cents = " and No Cents"
    Case "One"
    Cents = " and One Cent"
    Case Else
    Cents = " and " & Cents & " Cents"
    End Select
    SpellNumber = Dhirams & Cents
    End Function

    Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) "0" Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function

    Function GetTens(TensText)
    Dim Result As String
    Result = "" ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    Select Case Val(TensText)
    Case 10: Result = "Ten"
    Case 11: Result = "Eleven"
    Case 12: Result = "Twelve"
    Case 13: Result = "Thirteen"
    Case 14: Result = "Fourteen"
    Case 15: Result = "Fifteen"
    Case 16: Result = "Sixteen"
    Case 17: Result = "Seventeen"
    Case 18: Result = "Eighteen"
    Case 19: Result = "Nineteen"
    Case Else
    End Select
    Else ' If value between 20-99...
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1)) ' Retrieve ones place.
    End If
    GetTens = Result
    End Function

    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

45. 

    Tala Roland says:
    2020-09-15 at 3:19 pm

    Hello, Please i need some orientation on the said codes presented above. when i follow the procedure shown above the result i get after gibing the spellnumber command is #NAME? Please how should i proceed with such result.
    Please help me. Thanks

    1. 

       Alexander Trifuntov (Ablebits Team) says:
       2020-09-16 at 6:59 am

       Hello!
       Please describe in more detail your actions. Have you installed VBA macro via Alt + F11?

46. 

    Dilip Kumar says:
    2020-08-27 at 5:35 am

    Hi, Thanks for the code.
    When i use the formula for 100.50 it shows "One Hundred Dollars and Fifty Cents"
    Where as i want it to show as " Dollars One Hundred and Cents Fifty Only"
    In Which Dollars & Cents to be shown before the numbers & Only to be shown at the end.
    Please let me know what i need to change in the code to get the above result.
    Thanks & regards,

47. 

    Cherie says:
    2020-08-27 at 3:09 am

    Hi, need help like as below :
    294,922.30
    Two Hundred Ninety Four Thousand Nine Hundred Twenty Two And Cent Thirty only
    have any code for this?
    help help help & thank you so much...huhu...

48. 

    Patricia Almeida says:
    2020-08-19 at 4:36 pm

    Thank you!!! it worked for me..

49. 

    SALIL says:
    2020-08-15 at 10:53 am

    Can you send the formula as per given below: 1501.250
    "One Thousand Five Hundred One And Baisa 250/1000 Only

50. 

    NANA says:
    2020-08-07 at 8:33 am

    i will like to know how to get the currency in Ghana cedis and peswas. the currency input in the formula is dollars. kindly help me.