Alexander Frolov

Aug

29

Two best ways to convert numbers to words in Excel

by Alexander Frolov | updated on June 17, 2019 372 Comments

In this article I will show you two quick and free ways to convert currency numbers into English words in Excel 2016, 2013 and other versions.

Microsoft Excel is a great program to calculate this and that. It was initially developed to process large data arrays. However, it also lets creating accounting records like invoices, evaluation or balance sheets quickly and effectively.

In more or less solid payment documents it is necessary to duplicate numeric values with their word form. It is much harder to falsify typed numbers than those written by hand. Some swindler can try to make 8000 out of 3000, while it is almost impossible to secretly replace "three" with "eight".

So what you need is not just convert numbers to words in Excel (е.g. 123.45 to "one hundred and twenty three, forty five"), but spell out dollars and cents (е.g. $29.95 as "twenty nine dollars and ninety nine cents" ), pounds and pence for GBP, euros and eurocents for EUR, etc.
Convert number to words in Excel 2010

Even Excel 2016 doesn't have a built-in tool for spelling numbers, not to mention earlier versions. But that is when Excel is really good. You can always improve its functionality using formulas in all their
combinations, VBA macros, or third-party add-ins.

Below you'll find two ways to convert numbers from figures to words

SpellNumber VBA macro to convert a numeric value into English words
Use an add-in to spell numbers to words

And, possibly, you may need to convert Words to Numbers in Excel

Note. If you are looking for the number to text conversion, which means you want Excel to see your number as text, it's a bit different thing. Usually, you simply need to change the cell format in Excel (select your range with numbers, press Ctrl+1 on the Number tab, and select "Text" in the Category field). You can also use the formula =text().

Please find the details in the article Ways to convert numbers to text in Excel.

SpellNumber VBA macro to convert numbers to words

As I have already mentioned, Microsoft didn't want to add a tool for this task. However, when they saw how many users needed it, they created and published the special VBA macro on their website. The macro does what its name SpellNumber suggests. All other macros I came across are based on the Microsoft code.

You can find the macro mentioned as "spellnumber formula". However, it is not a formula, but a macro function, or to be more precise Excel User defined function (UDF).

The spellnumber option is able to write dollars and cents. If you need a different currency, you can change "dollar" and "cent" with the name of your one.

If you are not a VBA savvy guy, below you will find a copy of the code. If you still don't want or haven't time to sort this out, please use this solution.

Open the workbook where you need to spell the numbers.
Press Alt+F11 to open the Visual Basic editor window.
If you have several books opened, check that the needed workbook is active using the list of projects in the upper left corner of the editor (one of the workbook elements is highlighted with blue).
In the editor menu go to Insert-> Module.

You should see a window named YourBook - Module1. Select all of the code in the frame below and paste it to this window.
SpellNumber VBA macro to convert numbers to words

SpellNumber VBA macro to convert numbers to words

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
    Dim Dollars, 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 Dollars = Temp & Place(Count) & Dollars
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Dollars
        Case ""
            Dollars = "No Dollars"
        Case "One"
            Dollars = "One Dollar"
         Case Else
            Dollars = Dollars & " Dollars"
    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 = Dollars & 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

Press Ctrl+S to save the updated workbook.
You will need to resave your workbook. When you try to save the workbook with a macro you'll get the message "The following features cannot be saved in macro-free workbook"

Click No. When you see a new dialog, chose the Save as option. In the field "Save as type" pick the option "Excel macro-enabled workbook".

Use SpellNumber macro in your worksheets

Now you can use the function SpellNumber in your Excel documents. Enter =SpellNumber(A2) into the cell where you need to get the number written in words. Here A2 is the address of the cell with the number or amount.

Use SpellNumber macro in your Excel worksheets

Here you can see the result:
Spelled out numbers to dollars and cents

Voila!

Quickly copy the SpellNumber function to other cells.

If you need to convert the entire table, not just 1 cell, place your mouse cursor to the lower right corner of the cell with the formula until it turns into a small black cross:
Quickly copy the SpellNumber function to other cells

Left-click and drag it across the column to fill in the formula. Release the button to see the results:
Spelled out numbers to dollars and cents

Note. Please keep in mind that if you use SpellNumber with a link to another cell, the written sum will be updated each time the number in the source cell is changed.
You can also enter the number directly into the function, for example, =SpellNumber(29.95) (29.95 - without quotation marks and the Dollar sign).

Disadvantages of using macro to spell numbers in Excel

First off, you must know VBA to modify the code according to your needs. It is necessary to paste the code for each workbook, where you plan to change it. Otherwise, you will need to create a template file with macros and configure Excel to load this file at each start.

The main disadvantage of using a macro is if you send the workbook to somebody else, this person will not see the text unless the macro is built into the workbook. And even if it's built-in, they will get an alert that there are macros in the workbook.
Add a macro to your workbook

Free ready-to-use add-in to spell numbers into words

For active Excel users who need to quickly spell sums but don't want to learn VBA or other workarounds, one kind developer created a free add-in - POPUP SPELL NUMBER for Microsoft Excel

Besides being ready for use, the tool is really flexible in converting numbers. You can choose the text case of the result (lower case, Title Case, Sentence case, UPPER CASE ), also you can select how you want to see the fraction:

Spells the fraction in cent/cents, оr penny/pennies, оr penny/pence, or centavo/centavos
Spells decimal point, each zero and the rest of the number as an integer.
Doesn't spell the fraction but writes it as a fraction with denominator of 100, 1000, 1000000

Feel free to explore its possibilities on the product's home page.

The author states that it's tested and works in Excel for Windows 2000, 2002(XP), 2003, 2007, 2010 (32-bit), and 2013 (32-bit) in MSI-based and Click-To-Run installations of Office 365 cloud-based services.

And all is wonderful about POPUP SPELL NUMBER, but...

I hate to say that the add-in doesn't work with 64-bit versions of Excel 2010, 2013, 2007. And it is a considerable obstacle since these versions are becoming more and more popular. So lucky you are if you have Excel 32-bit :) Feel free to download the add-in and check it out.

If you are the one with Excel 64-bit like me, drop the author a line and ask him for a special version.

Reverse conversion - English words into numbers

Frankly, I can't imagine why you may need it. Just in case... :)

It appears that Excel MVP, Jerry Latham, created such Excel User defined function (UDF) as WordsToDigits. It converts English words back to number.

You can download Jerry's WordsToDigits workbook to see the UDF code. Here you'll also find his examples of how to use the function.

Convert english words into numbers

You can see how the function works on the sheet "Sample Entries", where you will also be able to enter your own examples. If you plan to employ WordsToDigits in your documents, please be informed that this function has restrictions. For example, it doesn't recognize fractions entered in words. You will find all the details on the "Information" sheet.

See also

-->

372 Responses to "Two best ways to convert numbers to words in Excel"

Yohannes.melesse@syngenta .com says:

January 18, 2019 at 8:14 am

please provide sample video

Reply
jeevan singh says:

January 25, 2019 at 6:59 am

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, 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 Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
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 = Dollars & 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

Reply
- Loy says:
  
  March 23, 2019 at 1:26 am
  
  when i copy and paste this, it gives me errors, what am i doing wrong?
  
  Reply
  - Abhishek kumar says:
    
    September 4, 2019 at 4:30 am
    
    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 Rupees"
    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
    
    Reply
    - Abhishek kumar says:
      
      September 4, 2019 at 4:30 am
      
      than save ur file
      
      Reply
    - Dr. RAtnapal says:
      
      September 17, 2019 at 4:53 pm
      
      i use this code but not given result. massage come Privacy warning; This documents contains macros, Activex controls,XML expansion pack information, or web components. These may include personal information that can not be removed by the documents inspector.
      
      Reply
Marjorie Montemayor says:

January 29, 2019 at 3:50 am

how can i convert numbers to words for Peso

Reply
- Oli says:
  
  January 29, 2019 at 5:50 am
  
  replace lng mam yung dollars nang pesos (control+h) tapos replace all lng..
  
  dollars to pesos
  dollar to peso
  
  Reply
Jorge Baez says:

January 29, 2019 at 10:25 pm

I keep getting a syntax error
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dollars = Temp & Place(Count) & Dollars

Reply
Supriya says:

January 31, 2019 at 7:16 am

Dear, this is to update you that the formula is not working perfectly. See the response that I am getting:->
For Kuwaiti Dinars
for KD 122.050 I got: One Hundred Twenty Two Kuwait Dinar and Five fils

the correct answer has to be: One Hundred Twenty Two Kuwait Dinar and Fifty fils
What to change now

Reply
- thon says:
  
  March 8, 2019 at 12:34 am
  
  look at the figure, it says .05 and not .50, the result is correct it seems the figure is point zero five, therefore the result should be five instead of fifty
  
  Reply
- Eimantas says:
  
  June 5, 2019 at 5:55 am
  
  the issue is to replace the separator from "." to "," in the number or in the formula from:
  MyNumber = Trim(Str(MyNumber))
  DecimalPlace = InStr(MyNumber, ".")
  to:
  MyNumber = Trim(Str(MyNumber))
  DecimalPlace = InStr(MyNumber, ",")
  
  Reply
Supriya says:

January 31, 2019 at 7:18 am

I am getting a value like this :Four Hundred Eighty Dollars and Seventy One Cents. Instead of Dollars I want to have it in Kuwaiti Dinars and fills.
Pls help me

Reply
Tanzeel Hussain says:

February 1, 2019 at 4:00 pm

I Was looking for him a lot, This formula hit is very good working on any Currency,
i am very happy thank you very much sir, Great job, May Allah bless you.😊😘💕😘💕😘💕😘💕

Reply
- Raja Zeeshan Khaliq says:
  
  June 25, 2019 at 8:31 am
  
  Assalam -o- Alaikum
  My dear brother i want to convert a mathematical digits in english words without any currency like as
  564 Five Hundred and Sixty Four
  what i do now please help me as soon as possible
  i have to prepare Result Cards
  
  Reply
  - Ikram Ullah says:
    
    September 19, 2019 at 10:35 am
    
    Wa Alaikum Assalam,
    Dear Raja Zeeshan
    Please in macro editor window press Ctrl+F , find Dollar and replace it with empty space . do it again for Dollars and similarly for Cent and cents respectively. I hope it will solve your problem.
    
    Reply
Adil Farooqui says:

February 2, 2019 at 1:55 pm

This formula is very good working on any Currency..

Reply
Liza says:

February 12, 2019 at 4:59 am

Thank you Sir for sharing this formula. It's help me a lot! I really appreciate that. Thanks again.

Reply
kherlen alih says:

February 18, 2019 at 2:26 am

help me naman po pano mag convert numbers to words sa excell for cheque please ..

Reply
Ola says:

February 20, 2019 at 5:19 pm

Thank you for this.
However, this was noticed.
For example, i tried to spell 450,750.34
Four Hundred Fifty Thousand Seven Hundred Fifty Dollars and Thirty Four Cents
In my country, we spell like this
Four Hundred and Fifty Thousand, Seven Hundred and Fifty Dollars, Thirty Four Cents
Can you please help me tweak the VBA code to have this new result.

Reply
- wasiullah says:
  
  April 1, 2019 at 8:02 am
  
  did u got that code? i need it too
  
  Reply
- Bindesh says:
  
  August 11, 2019 at 8:47 am
  
  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 Cent"
  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
  
  Reply
Sultan Ahmed says:

February 21, 2019 at 1:02 pm

How can I download vba code to my phone?

Reply
haider says:

March 15, 2019 at 7:59 am

i just want the wording not any currency. what should i do?

Reply
Guruprasad says:

March 19, 2019 at 9:55 am

Thank you Bro....

Reply
Jay says:

March 27, 2019 at 12:31 pm

Hi, can i have the code without dollars and cents, E.g.
Four Million Six Hundred Three Thousand Four Hundred Twenty Two

Reply
Mujahid Azeem says:

April 2, 2019 at 6:48 am

Hi,
Could you tell me the code where I can mention "and" before the last figures e.g. Rs 1,987,290 (Rupees one million nine Hundred eighty seven thousand two hundred and ninety only)

Reply
Zainul Abdeen says:

April 4, 2019 at 8:56 am

Thanks you very much....

Reply
ARNON says:

April 4, 2019 at 9:53 am

SIMPLE, LOL, YOUR MACROS WORKED FIRST TIME, NO PROBLEMS, ONLY REQUEST IS FOR A CHANGE TO 00/00...01/00...03/00 AND SO ON INSTEAD OF CENTS, GOT YOURS TO WORK 00/00 AND 01/00 TO WORK, BUT AFTER THAT, ALL IS TEXT /00. SO I DELETED CENTS ALL TOGETHER TILL I GET THE CORRECT MACROS FOR THE OO/00 TO 99/00, PLEASE AND THANKS

Reply
- Arvin says:
  
  May 11, 2019 at 1:53 am
  
  I need the answer for this
  
  Reply
Manjeet kimar says:

April 4, 2019 at 11:19 am

when i copy and paste this, it gives me errors, what am i doing wrong?

Reply
Mike says:

April 6, 2019 at 3:05 am

Hi, Can please I have the code without dollars and cents? thanks

Reply
- Raja Zeeshan Khaliq says:
  
  June 25, 2019 at 8:33 am
  
  Hey Mike!
  do you get the code without dollars and cents
  i also need this code
  if you get this code please send me
  i have really need this code
  
  Reply
Yannick says:

April 10, 2019 at 10:10 am

It working very well. Thank's

Reply
Fahmid says:

April 12, 2019 at 8:27 am

Thanks for authentic codes. It works where codes from Microsoft gave an error message.
Best wushes!
Regards,

Reply
Marien says:

April 23, 2019 at 6:02 am

Thank you for this wonderful Module. Take care.

Reply
Lito Santos says:

May 9, 2019 at 4:33 pm

tried it and it worked:
$866.96 Eight Hundred Sixty Six Dollars and Ninety Five Cents
$866.955 Eight Hundred Sixty Six Dollars and Ninety Five Cents
but it does not round up.
it is supposed to be :
Eight Hundred Sixty Six Dollars and Ninety Six Cents

Please advise.

Reply
- Lito Santos says:
  
  May 9, 2019 at 6:17 pm
  
  please disregard the previous comment. the code is working fine.
  i just need to use the roundup function in excel.
  
  Reply
  - Nik says:
    
    May 22, 2019 at 3:25 pm
    
    You are a genius, thank you, I had the exact same problem.
    
    Reply
Bobby Macias says:

May 14, 2019 at 4:09 pm

Hello. I am wanted to enter the numbers 1 - 4 in each individual cell in an entire column. Once i insert the number and push ENTER, i want a text to replace the number based on which text i attach to that number. For example. The text for 1 is "Shut", i insert one into the cell and hit enter and it changes the value 1 to "shut

Reply
uzzal says:

May 17, 2019 at 11:59 am

thanks brother

Reply
Greg Lomboy says:

May 21, 2019 at 2:04 am

Why do I keep on getting #Name? Send Help please

Reply
- Bou Bou says:
  
  September 4, 2019 at 7:54 am
  
  me too
  
  Reply
Govind says:

May 23, 2019 at 11:37 am

How To convert 48000 RS in English word in M S Excle

Reply
Houcine says:

May 25, 2019 at 9:34 am

Hi,
I need to convert a number with three digits after the decimal point, for example:
122,145 --> one hundred twenty two dollars one hundred forty five cents.
Thank you in advance.

Reply
moo says:

June 7, 2019 at 6:39 am

Hi,I need the number without the code of dollers and cents,thanks

Reply
Hisham says:

June 19, 2019 at 12:46 pm

Hello, the code is great! I'm using to print checks, so I need to add the word "only" at the end of the spelled number (ie twenty one dollars only). How can I achieve this?

Reply
Alvin says:

June 26, 2019 at 3:37 am

Hi,

I'd like to convert in this format
P151.50 = One Hundred Fifty-One & 50/100 only

Thanks,

Reply
- Alvin says:
  
  June 26, 2019 at 8:15 am
  
  UPDATE
  I was able to solve this but works only on Windows 8, 8.1, & 10 Machines only
  here is the code
  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 " ' String representation of amount
  MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none
  DecimalPlace = InStr(MyNumber, ".")
  'Convert cents and set MyNumber to Peso amount
  If DecimalPlace > 0 Then
  Cents = Right(MyNumber, 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 Peso"
  Case Else
  Pesos = Pesos & " Pesos"
  End Select
  Select Case Cents
  Case ""
  Cents = " Only"
  Case "1"
  Cents = " & .1/100 Cent Only"
  Case Else
  Cents = " & " & (Cents) & "/100 Only"
  End Select
  SpellNumber = Pesos & Cents
  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
  
  Sub test()
  Dim number As Double
  number = Range("A1").Value
  Range("A2").Value = SpellNumber(number)
  End Sub
  
  Reply
  - Joy says:
    
    February 6, 2020 at 8:12 am
    
    Thank you :)
    
    Reply
    - Joy says:
      
      February 6, 2020 at 9:51 am
      
      i tried to sample 123.50
      result: One Hundred Twenty Three Pesos & .5/100 Only
      instead of: One Hundred Twenty Three Pesos & 50/100 Only
      Please help
      
      Reply
      - Dina Sarker says:
        
        February 29, 2020 at 4:43 am
        
        dear sir,
        what do if i want to spell a number in BTD ?
        regard,
        Dina Sarker
        
        Reply
Josef+ says:

June 26, 2019 at 4:24 pm

Thanks a lot. i edited the currency bit from Dollars to GHCedis & Pesewas and it worked great! so grateful.

Reply
John Downes says:

June 30, 2019 at 11:54 am

Mate you are a genius - thanks a million

Reply
John Downes says:

June 30, 2019 at 11:54 am

Mate you are a genius - thanks a million

Reply
dan j says:

July 3, 2019 at 3:37 am

i got an error. "Ambiguous name detected: SpellNumber" ..how i gonna solve this?

Thanks a lot

Reply
Prashanth Nair says:

July 17, 2019 at 4:14 am

Please help me get the above coding for converting Rupees as value

Reply
Umair Ahmad says:

July 23, 2019 at 1:34 pm

done. Thank you so much

Reply
sakthivel says:

July 24, 2019 at 3:36 pm

hai, i need to change the above coding to indian currency

Reply
SURAJMOHAN says:

July 29, 2019 at 11:38 am

hi guys
i cant use VBA in my company lap .
please help me to convert number to text in INR format only by suing any formulas without using macros

Reply
MITESH says:

July 30, 2019 at 10:09 am

Thanks a lot for sharing formula. Amazing...

Reply
saurav narvekar says:

July 31, 2019 at 6:32 am

dear sir,
what do if i want to spell a number in rupees ?
regard,
saurav narvekar

Reply
Likhith says:

August 6, 2019 at 1:52 pm

It is very helpful for me. but some changes required.
if There is Multiple Decimals then how do we Convert calculation shows Wrong.
Example : 149.149 = Spellnumber(One Hundred Forty Nine Dollars and Fourteen Cents.
But it has to be fifteen Cents how to do it pls help.

Reply
Shah Faisal says:

August 9, 2019 at 4:57 am

Formula updated from Dollar to 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 Cent"
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
-------------------------------
Regards

Reply
- Mihir Shah says:
  
  September 5, 2019 at 10:40 am
  
  Hey, thank you for the code. However, I am getting an error stating syntax error with Function SpellNumber(ByVal MyNumber) highlighted in yellow & Do while MyNumber"" highlighted too..
  Please help!
  
  Reply
Bilal says:

August 17, 2019 at 7:27 am

Thanks. This works. But now the question is how to permanenelty add this formula in excel 2016 because I need this in many sheets and everytime i'm unable to add formula in excel.

Reply
jamshad says:

August 18, 2019 at 11:49 am

can i get code in uae dhirham and fils
in exel cell my total amount that amound i want to convert

Reply
akram says:

August 19, 2019 at 10:09 am

we require only mention in words, from any number for example
11,223,569 Eleven Million Two Hundred Twenty Three Thousand Five Hundred Sixty Nine Only
145,201 One Hundred Forty Five Thousand Two Hundred One Only
5,300 Five Thousand Three Hundred
Very Thanks
Akram Iqbal

Reply
Rajendra says:

August 20, 2019 at 7:29 pm

This code is showing error for 100 crores it is showing 10 crores only

Reply
burhanuddin says:

September 23, 2019 at 8:05 am

can i change the currency like its dollars so can i change to dirhams and the fonts too

Reply
- Xyrah says:
  
  January 6, 2020 at 10:18 am
  
  For Dirhams and Fills; but not tested if every amount will work out fine.
  
  Option Explicit
  
  'Main Function
  
  Function SpellNumber(ByVal MyNumber)
  
  Dim Dirhams, Fills, 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 Fills and set MyNumber to dirham amount.
  
  If DecimalPlace > 0 Then
  
  Fills = 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 Dirhams = Temp & Place(Count) & Dirhams
  
  If Len(MyNumber) > 3 Then
  
  MyNumber = Left(MyNumber, Len(MyNumber) - 3)
  
  Else
  
  MyNumber = ""
  
  End If
  
  Count = Count + 1
  
  Loop
  
  Select Case Dirhams
  
  Case ""
  
  Dirhams = ""
  
  Case "One"
  
  Dirhams = "One Dirham"
  
  Case Else
  
  Dirhams = Dirhams & " Dirhams"
  
  End Select
  
  Select Case Fills
  
  Case ""
  
  Fills = ""
  
  Case "One"
  
  Fills = " and One Fills"
  
  Case Else
  
  Fills = " and " & Fills & " Fills"
  
  End Select
  
  SpellNumber = Dirhams & Fills
  
  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
  
  Reply
Rajesh says:

September 24, 2019 at 12:18 pm

How to write formula for
45556.545
Forty Five Thousand Five Hundred Fifty six JOD and five hundred forty five fils
Please help me.

Reply
Glenn manlapaz says:

September 26, 2019 at 9:58 pm

28,205.8

Reply
yousuf says:

October 2, 2019 at 7:19 am

I dont want to show in word in Paisa.
Now showing
4567.23= Taka Four Thousand Five hundred Sixty Seven twenty three paise only.
But I want to show Like this:
4567.23= Taka Four Thousand Five hundred Sixty Seven only.
Please help me:
Function SpellNumber(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven "
WORDs(12) = "Twelve "
WORDs(13) = "Thirteen "
WORDs(14) = "Fourteen "
WORDs(15) = "Fifteen "
WORDs(16) = "Sixteen "
WORDs(17) = "Seventeen "
WORDs(18) = "Eighteen "
WORDs(19) = "Nineteen "
tens(2) = "Twenty "
tens(3) = "Thirty "
tens(4) = "Fourty "
tens(5) = "Fifty "
tens(6) = "Sixty "
tens(7) = "Seventy "
tens(8) = "Eighty "
tens(9) = "Ninety "
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN 1 Then
SpellNumber = "Taka "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Taka "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Paise "
If Val(Left(FIGURE, 2)) 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only. "
End If
End Function

Reply
joel says:

October 8, 2019 at 4:30 am

I would like this one for Bahraini Dinar..as the whole process and change the currency there will be always an error. please help me on this...

Reply
Edge says:

October 13, 2019 at 2:48 am

Thank you for this. But how to do it like this: 190708 turn to (One-Nine-Zero-Seven-Zero-Eight)

Is there a way to do it like that? Thank you very much!

Reply
ALIDA says:

October 17, 2019 at 2:45 am

currently we are using spellnumber like this.
370,932.04 = Three Hundred Seventy Thousand Nine Hundred Thirty Two & 4/100 Pesos Only
But due to bank requirement it should be like this.
Three Hundred Seventy Thousand Nine Hundred Thirty Two & 04/100 Pesos Only
Please help me how to do it. Thanks in advance

Reply
Nou Nang says:

October 17, 2019 at 3:52 am

Hi can anyone share me the excel add-in file of the Spell Number in USD? i cannot fine the excel Add-in File.

Reply
Jos says:

October 18, 2019 at 10:01 pm

do you have the VBA code to convert numbers in French words

Reply
mark says:

October 23, 2019 at 8:11 am

can you remove the . before the cents and add a zero? eg. .1/100 Only to 10/100 Only

Reply
tusher says:

October 23, 2019 at 10:45 am

HOW TO MAKE IT APPLY ON EVERY EXCEL SHEET

Reply
Charles Afetorgbor says:

October 26, 2019 at 9:06 am

Convert
1.Four thousand three hundred and thirty to number figures
2.Three thousand and eighteen to number figures
3.Eight thousand and forty three to number figures
4.Nine thousand and seventy seven to number figures.
Convert
5. 9,44 to English words
6. 2,019 to English words
7. 7,003 to English words
Thanks.

Reply
Jepoy says:

October 30, 2019 at 8:23 am

Function SpellNumber(ByVal MyNumber) - -During running the formula , error occurs in MyNumber

Reply
Carol says:

November 6, 2019 at 1:09 pm

Hi sir!
Good pm
Ask ko po sana pano po iconvert numbers to peso in excel 2016 windows 10.using this format po: ex.: 120.50
One Hundred Twenty Pesos and 50/100 Only
Thanks Sir! GOD BLESS

Reply
Shindie says:

November 17, 2019 at 5:32 am

what if i want to convert the numbers only without currency like "dollars" what will be the code?

Reply
ch venkataiah says:

November 24, 2019 at 5:01 pm

how to convert marks in words up to 100 only.
please worte a link to this mail

Reply
Umer says:

December 4, 2019 at 8:44 pm

How can we convert current on three decimal places in words
For example 1,000.500 (One thousand ruppes and five hundred bz

Reply
nabeel says:

December 22, 2019 at 12:57 pm

perfect.

Reply
JAGDISH VAISHNAV says:

December 31, 2019 at 4:53 am

i want to write number in word pnly

Reply
REY ISIDORE GULLEBAN says:

January 6, 2020 at 7:30 am

Can you please help the exact keyword for peso?

Reply
Zameer says:

January 9, 2020 at 12:40 pm

Hi Experts,
Kindly update the macro for 3 decimal points.(100.250 ie One hundred and two fifty only).
Thanks in advance

Reply
RAJU K SEKHARAN says:

January 18, 2020 at 3:00 pm

I want to SpellNumber as US Dollar One Thousand Four Hundred and Twenty Five and Cents 24 Only for 1,425.24. Please help me.

Reply
Avinash says:

January 20, 2020 at 2:20 pm

Dear Experts,
I need a to convert like this
OMR 525,450.250
Omani Rial Five Hundred Twenty Five Thousand Four Hundred Fifty and Baizas Two Hundred Fifty Only
Kindly provide me the solution.
Avinash

Reply
Imam Hossain says:

January 23, 2020 at 7:33 am

I want to publish as Dirhams and Fils instead of Dollars and Cents.

kindly help me.

Reply
Sahal says:

February 3, 2020 at 4:13 am

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, 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 dollar amount.
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 Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
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 = Dollars & Cents
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

Reply
Ellie says:

February 18, 2020 at 10:53 am

Hi, I need this code for windows 10/Excel 365 in both Euro and Dollars. The one provided on the website doesn't work... it highlights Function SpellNumber(ByVal MyNumber) and errors. Either with #VALUE or just shows the formula. Can someone please help?

Reply
Gehan says:

February 21, 2020 at 8:46 am

Thank you so much :), It works perfectly

Reply
SALIL says:

February 26, 2020 at 7:20 am

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

Reply
ZOE says:

March 5, 2020 at 12:22 am

How to write formula for
2675.20
TWO THOUSAND SIX HUNDRED SEVENTY FIVE AND CENTS TWENTY ONLY
Please help me.

Reply
ali says:

March 8, 2020 at 5:06 am

Hello,

When I am converting Excel File into PDF its now showing Amount in words its showing #NAME?

Reply
Dharmendhar says:

March 11, 2020 at 7:00 am

How do this applicable for all new sheets?

Do i need to copy this entire code into all the new sheets every time, in case if i want to use this function?
Thanks!

Reply
SALIL says:

March 14, 2020 at 8:25 am

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

Reply
Pratik Joshi says:

March 28, 2020 at 2:07 pm

I want Indian Rupees Conversation Code

Reply
rajesh singh says:

April 6, 2020 at 4:45 am

currently we are using spellnumber like this.
370,932.04 = Three Hundred Seventy Thousand Nine Hundred Thirty Two & Paiase Four Only
But i required it should be like this.
Three Lakh Seventy Thousand Nine Hundred Thirty Two & Paiase Four Only
Please help me how to do it. Thanks in advance

Reply

Post a comment

60+ professional tools for Excel

60+ professional tools for Excel
2019–2007 to do your daily work

Incredible product, even better tech support…AbleBits totally delivers!

Anyone who works with Excel is sure to find their work made easier

The best spent money on software I've ever spent!

Ablebits is a fantastic product - easy to use and so efficient.

Excel is at its best now

I don't know how to thank you enough for your Excel add-ins

Jennifer Morningstar

Anybody who experiences it, is bound to love it!

AbleBits suite has really helped me when I was in a crunch!

I have enjoyed every bit of it and time am using it

Christian Onyekachi Nwosu

It's the best $100 we've ever spent!

I love the program, and I can't imagine using Excel without it!

One word… WOW!

Love the products!

It is like having an expert at my shoulder helping me…

Linda Shakespeare

Your software really helps make my job easier

Thanks for a terrific product that is worth every single cent!

I love your product

Sheila Blanchard