How to Convert Currency to Words in Excel – 2 Easy Methods

Method 1 – Creating a User-Defined Function Using VBA

Step 1: Create a Function in a VBA Module

• Go to the Developer tab > Code > Visual Basic. You can also press Alt+F11 to launch the VBA window. The Microsoft Visual Basic for Applications window will open.
• In the VBA window, go to Insert tab > Module.
• Enter the VBA code below in the module window:

  Function SpellNumber(ByVal GivenCurrency)
  Dim USD, C
  Words = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
  GivenCurrency = Trim(Str(GivenCurrency))
  FractionCurrency = InStr(GivenCurrency, ".")
  If FractionCurrency > 0 Then
  C = TensPlace(Left(Mid(GivenCurrency, FractionCurrency + 1) & "00", 2))
  GivenCurrency = Trim(Left(GivenCurrency, FractionCurrency - 1))
  End If
  GetIndex = 1
  Do While GivenCurrency <> ""
  GetHundred = ""
  GetValue = Right(GivenCurrency, 3)
  If Val(GetValue) <> 0 Then
  GetValue = Right("000" & GetValue, 3)
  If Mid(GetValue, 1, 1) <> "0" Then
  GetHundred = OnesPlace(Mid(GetValue, 1, 1)) & " Hundred "
  End If
  If Mid(GetValue, 2, 1) <> "0" Then
  GetHundred = GetHundred & TensPlace(Mid(GetValue, 2))
  Else
  GetHundred = GetHundred & OnesPlace(Mid(GetValue, 3))
  End If
  End If
  If GetHundred <> "" Then
  USD = GetHundred & Words(GetIndex) & USD
  End If
  If Len(GivenCurrency) > 3 Then
  GivenCurrency = Left(GivenCurrency, Len(GivenCurrency) - 3)
  Else
  GivenCurrency = ""
  End If
  GetIndex = GetIndex + 1
  Loop
  Select Case USD
  Case ""
  USD = "No USD"
  Case "One"
  USD = "One Dollar"
  Case Else
  USD = USD & " USD"
  End Select
  Select Case C
  Case ""
  C = " and No C"
  Case "One"
  C = " and One Cent"
  Case Else
  C = " and " & C & " C"
  End Select
  SpellNumber = USD & C
  End Function
  Function TensPlace(TensDigit)
  Dim Output As String
  Output = ""
  If Val(Left(TensDigit, 1)) = 1 Then
  Select Case Val(TensDigit)
  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(TensDigit, 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 & OnesPlace(Right(TensDigit, 1))
  End If
  TensPlace = Output
  End Function
  Function OnesPlace(OnesDigit)
  Select Case Val(OnesDigit)
  Case 1: OnesPlace = "One"
  Case 2: OnesPlace = "Two"
  Case 3: OnesPlace = "Three"
  Case 4: OnesPlace = "Four"
  Case 5: OnesPlace = "Five"
  Case 6: OnesPlace = "Six"
  Case 7: OnesPlace = "Seven"
  Case 8: OnesPlace = "Eight"
  Case 9: OnesPlace = "Nine"
  Case Else: OnesPlace = ""
  End Select
  End Function

• Click Save.
• In Save As, select Excel Macro-Enabled Workbook in Save as type > Save.

Step 2: Apply the User Defined Function

• Go back to the workbook and select a blank cell.
• In B5, enter the formula: =SpellNumber(B5).
• Press Enter. The currency will be converted to words.
• Drag down the Fill Handle.

Method 2 – Applying an Excel Formula

• In B5, enter the formula:

• Press Enter. Integer numbers were converted to words.
• Drag down the Fill Handle.

Frequently Asked Questions

Can I customize the VBA code to meet specific styling requirements?

Can I use this method for different currencies and locales?