# Spell Number in Excel (With/Without Currency)

Get FREE Advanced Excel Exercises with Solutions!

Spelling numbers in Excel is often required for banking or marketing sectors. Although Excel does not offer any built-in function to spell numbers, it is possible to achieve this goal by creating custom user-defined functions.

In this article, we will explore everything you need to know about how to spell a number in Excel. By following this article, you can spell out numbers in different currencies as well as without currency as per your requirement. We have started this article by explaining how to spell a number without currency in Excel. Then we discussed how to spell a number in the US Dollar, Taka, and many other currencies.

## How to Spell a Number into Words in Excel

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

Then click on the Insert tab and select Module. As a result, a code window will appear where you can write VBA code.

Now 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 and 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

### 1. Spell Number in US Dollar

Launch the VBA Editor window and write the following code given below.

``````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``````

Now select cell B5 and write the following formula.

`=SpellNumUSD(B5)`

### 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 as a result, the amount of Taka in cell B5 will be converted into words.

### 3. Spell Number in Other Currencies

Now we will show you a custom VBA function that can be used to spell number in 11 different currencies.

• Riyal
• Dirham
• Pound
• Euro
• Yen
• 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``````

Now go to your dataset and select cell D5. Type 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.

1. 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.

2. 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.

3. 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.

## Conclusion

Thanks for making it this far. I hope you found this article useful. In this article, we have provided discussions on how to spell number in Excel. We have explained how you can spell number without currency. We also explored how to spell number in US Dollar, Taka and other currencies. If you have any queries or recommendations regarding this article, feel free to let us know in the comment section below.

## Spell Number in Excel: Knowledge Hub

<< Go Back to Excel Convert Number to Text | Learn Excel

## What is ExcelDemy?

ExcelDemy - Learn Excel & Get Excel Solutions Center provides online Excel training , Excel consultancy services , free Excel tutorials, free support , and free Excel Templates for Excel professionals and businesses. Feel free to contact us with your Excel problems.
Alif Bin Hussain

Alif Bin Hussain earned a BSc in Civil Engineering from Bangladesh University of Engineering and Technology. As an engineering graduate, he has a deep passion for research and innovation. He loves to play with Excel. In his role as an Excel & VBA Content Developer at ExcelDemy, he not only solves tricky problems but also shows enthusiasm and expertise in handling tough situations with finesse, emphasizing his dedication to delivering top-notch content. He is interested in C, C++,... Read Full Bio

We will be happy to hear your thoughts

Advanced Excel Exercises with Solutions PDF