Spell Number in Excel (With/Without Currency)

You can spell out numbers in different currencies as well as without currency as per your requirement. We have a list of numbers and various currencies that we’ll spell out.

How to Spell a Number into Words in Excel

Go to the Developer tab and select Visual Basic to open the Microsoft Visual Basic for Application window.

Click on the Insert tab and select Module. A code window will appear where you can write VBA code.

Paste the following code there.

Option Explicit
Function SpellNum(ByVal givenNumber)
    Dim usDollars, usCents, Temp
    Dim decimalPoint, Count
    ReDim Position(9) As String
    Position(2) = " Thousand "
    Position(3) = " Million "
    Position(4) = " Billion "
    Position(5) = " Trillion "
    givenNumber = Trim(Str(givenNumber))
    decimalPoint = InStr(givenNumber, ".")
    If decimalPoint > 0 Then
        usCents = GetDigit(Left(Mid(givenNumber, decimalPoint + 1) & "00", 1)) _
        & " " & GetDigit(Left(Mid(givenNumber, decimalPoint + 2) & "00", 1))
        givenNumber = Trim(Left(givenNumber, decimalPoint - 1))
    End If
    Count = 1
    Do While givenNumber <> ""
        Temp = GetHundreds(Right(givenNumber, 3))
        If Temp <> "" Then
            usDollars = Temp & Position(Count) & usDollars
        End If
        If Len(givenNumber) > 3 Then
            givenNumber = Left(givenNumber, Len(givenNumber) - 3)
        Else
            givenNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case usCents
        Case ""
            usCents = ""
        Case "One"
            usCents = " Point One "
        Case Else
            usCents = " Point " & usCents & " "
    End Select
    SpellNum = usDollars & usCents
End Function
Function GetHundreds(ByVal givenNumber)
    Dim output As String
    If Val(givenNumber) = 0 Then
        Exit Function
    End If
    givenNumber = Right("000" & givenNumber, 3)
    If Mid(givenNumber, 1, 1) <> "0" Then
        output = GetDigit(Mid(givenNumber, 1, 1)) & " Hundred "
    End If
    If Mid(givenNumber, 2, 1) <> "0" Then
        output = output & GetTens(Mid(givenNumber, 2))
    Else
        output = output & GetDigit(Mid(givenNumber, 3))
    End If
    GetHundreds = output
End Function
Function GetTens(TensText)
    Dim output As String
    output = ""
    If Val(Left(TensText, 1)) = 1 Then
        Select Case Val(TensText)
            Case 10
                output = "Ten"
            Case 11
                output = "Eleven"
            Case 12
                output = "Twelve"
            Case 13
                output = "Thirteen"
            Case 14
                output = "Fourteen"
            Case 15
                output = "Fifteen"
            Case 16
                output = "Sixteen"
            Case 17
                output = "Seventeen"
            Case 18
                output = "Eighteen"
            Case 19
                output = "Nineteen"
            Case Else
        End Select
    Else
        Select Case Val(Left(TensText, 1))
            Case 2
                output = "Twenty "
            Case 3
                output = "Thirty "
            Case 4
                output = "Forty "
            Case 5
                output = "Fifty "
            Case 6
                output = "Sixty "
            Case 7
                output = "Seventy "
            Case 8
                output = "Eighty "
            Case 9
                output = "Ninety "
            Case Else
        End Select
        output = output & GetDigit(Right(TensText, 1))
    End If
    GetTens = output
End Function
Function GetDigit(number)
    Select Case Val(number)
        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

Go to your worksheet, type the following formula and press Enter to spell number without currency in Excel.

=SpellNum(B5)

How to Spell a Number into Words for Currency in Excel

Method 1 – Spell Numbers in U.S. Dollars

Launch the VBA Editor window and insert the following code given below in a module.

Option Explicit
Function SpellNumUSD(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
    SpellNumUSD = Dollars & cents
End Function
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Functio
    MyNumber = Right("000" & MyNumber, 3)
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    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 = ""
    If Val(Left(TensText, 1)) = 1 Then
        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
        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))
    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

Select cell B5 and write the following formula.

=SpellNumUSD(B5)

Method 2 – Spell Number in Taka

Go to the Microsoft VBA module and type the following formula in the module.

Function ConvertNumberToWords(ByVal num As Double) As String
    Dim onesArr() As String
    Dim tensArr() As String
    Dim groupArr() As String
    Dim Result As String
    onesArr = Split("One,Two,Three,Four,Five," & _
                    "Six,Seven,Eight,Nine", ",")
    tensArr = Split("Ten,Eleven,Twelve,Thirteen,Fourteen," & _
                    "Fifteen,Sixteen,Seventeen,Eighteen,Nineteen", ",")
    groupArr = Split("Twenty,Thirty,Forty,Fifty," & _
                    "Sixty,Seventy,Eighty,Ninety", ",")
    Dim taka As Long
    Dim paisa As Long
    taka = Fix(num)
    paisa = Round((num - taka) * 100)
    If taka = 0 And paisa = 0 Then
        Result = "Zero Taka"
    Else
        If taka > 0 Then
            Result = ConvertNumberToWordsHelper(taka) & " Taka"
        End If
        If paisa > 0 Then
            Result = Result & " and " & ConvertNumberToWordsHelper(paisa) _
            & " Paisa"
        End If
    End If
    ConvertNumberToWords = Trim(Result)
End Function
Function ConvertNumberToWordsHelper(ByVal num As Long) As String
    Dim onesArr() As String
    Dim tensArr() As String
    Dim groupArr() As String
    Dim Result As String
    onesArr = Split("One,Two,Three,Four,Five," & _
                    "Six,Seven,Eight,Nine", ",")
    tensArr = Split("Ten,Eleven,Twelve,Thirteen,Fourteen," & _
                    "Fifteen,Sixteen,Seventeen,Eighteen,Nineteen", ",")
    groupArr = Split("Twenty,Thirty,Forty,Fifty," & _
                    "Sixty,Seventy,Eighty,Ninety", ",")
    If num = 0 Then
        Result = ""
    ElseIf num < 10 Then
        Result = onesArr(num - 1)
    ElseIf num < 20 Then
        Result = tensArr(num - 10)
    ElseIf num < 100 Then
        If num Mod 10 = 0 Then
            Result = groupArr(Int(num / 10) - 2)
        Else
            Result = groupArr(Int(num / 10) - 2) _
            & " " & onesArr(num Mod 10 - 1)
        End If
    ElseIf num < 1000 Then
        Result = onesArr(Int(num / 100) - 1) _
        & " Hundred " & ConvertNumberToWordsHelper(num Mod 100)
    ElseIf num < 1000000 Then
        Result = ConvertNumberToWordsHelper(Int(num / 1000)) _
        & " Thousand " & ConvertNumberToWordsHelper(num Mod 1000)
    ElseIf num < 10000000 Then
        Result = ConvertNumberToWordsHelper(Int(num / 100000)) _
        & " Lakh " & ConvertNumberToWordsHelper(num Mod 100000)
    ElseIf num < 100000000000# Then
        Result = ConvertNumberToWordsHelper(Int(num / 10000000)) _
        & " Crore " & ConvertNumberToWordsHelper(num Mod 10000000)
    Else
        Result = "Number is too large."
    End If
    ConvertNumberToWordsHelper = Trim(Result)
End Function

Go to your worksheet and apply the formula given below.

=ConvertNumberToWords(B5)

Press Enter, and the amount of Taka in cell B5 will be converted into words.

Method 3 – Spell Numbers in Other Currencies

Here’s a custom VBA function that can be used to spell numbers in 11 different currencies:

Riyal
Dirham
Pound
Euro
Yen
Canadian Dollar
Australian Dollar
Rand
Baht
Sri Lankan Rupee
US Dollar

Option Explicit
Function SpellNumber(ByVal MyNumber, Optional MyCurrency As String = "")
    Dim Dollars, cents, Temp
    Dim DecimalPlace, Count
    Dim 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
    Dim str_amount, str_amounts
    Dim str_cent, str_cents
    Select Case UCase(MyCurrency)
        Case "RIYAL"
            str_amount = "Riyal"
            str_amounts = "Riyals"
            str_cent = "Halala"
            str_cents = "Halalas"
        Case "DIRHAM"
            str_amount = "Dirham"
            str_amounts = "Dirhams"
            str_cent = "Fil"
            str_cents = "Fils"
        Case "POUND"
            str_amount = "Pound"
            str_amounts = "Pounds"
            str_cent = "Penny"
            str_cents = "Pence"
        Case "EURO"
            str_amount = "Euro"
            str_amounts = "Euros"
            str_cent = "Cent"
            str_cents = "Cents"
        Case "YEN"
            str_amount = "Yen"
            str_amounts = "Yens"
            str_cent = "Sen"
            str_cents = "Sens"
        Case "CANADIAN DOLLAR"
            str_amount = "Canadian Dollar"
            str_amounts = "Canadian Dollars"
            str_cent = "Cent"
            str_cents = "Cents"
        Case "AUSTRALIAN DOLLAR"
            str_amount = "Australian Dollar"
            str_amounts = "Australian Dollars"
            str_cent = "Cent"
            str_cents = "Cents"
        Case "RAND"
            str_amount = "Rand"
            str_amounts = "Rands"
            str_cent = "Cent"
            str_cents = "Cents"
        Case "BAHT"
            str_amount = "Baht"
            str_amounts = "Bahts"
            str_cent = "Satang"
            str_cents = "Satangs"
        Case "SRI LANKAN RUPEE"
            str_amount = "Sri Lankan Rupee"
            str_amounts = "Sri Lankan Rupees"
            str_cent = "Cent"
            str_cents = "Cents"
        Case Else
            str_amount = "Dollar"
            str_amounts = "Dollars"
            str_cent = "Cent"
            str_cents = "Cents"
    End Select
    Select Case Dollars
        Case ""
            Dollars = "No " & str_amounts
        Case "One"
            Dollars = "One " & str_amount
        Case Else
            Dollars = Dollars & " " & str_amounts
    End Select
    Select Case cents
        Case ""
            cents = " and No " & str_cents
        Case "One"
            cents = " and One " & str_cent
        Case Else
            cents = " and " & cents & " " & str_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)
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    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 = ""
    If Val(Left(TensText, 1)) = 1 Then
        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"
        End Select
    Else
        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 "
        End Select
        Result = Result & GetDigit(Right(TensText, 1))
    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

Go to your dataset and select cell D5. Use the following formula to convert the amount of money into words.

=SpellNumber(B5,C5)

Press the Enter button and then autofill the rest of the cells to convert the amount into different currencies in words.

Things to Remember

Make sure that the Developer tab is enabled. If the tab is not enabled, you can access the Microsoft VBA window by pressing Alt+F11.
While using the last VBA function, if you insert the currency using the cell reference, make sure to put an inverted comma before the name of the currency, for instance, ‘Riyal.

Download the Practice Workbook

Download this practice workbook while reading this article.

Spell Number with/without Currency.xlsm

Frequently Asked Questions

Does Excel Have a built-in function to spell number?

Unfortunately, Excel does not have any built-in function to spell number. Although it can easily be done by creating a user defined VBA function.

Can I modify the VBA code to spell out numbers in different languages?

The VBA code shown above in this article can be modified to spell out numbers in different languages. Just replace the English words with the equivalent words in your desired language.

Can I spell out numbers using alternative numbering systems (e.g. Roman numerals) using VBA in Excel?

You can create a user defined function in Excel VBA to spell out numbers using alternative numbering systems such as the Roman numerals. The function will depend on the specific numeric system you are using.