Create a Custom Number to Words Function in Excel Code Function NumberToWords(ByVal MyNumber) Dim Units As Variant, Tens As Variant Dim Temp As String Dim DecimalPlace As Integer, Count As Integer Dim DecimalPart As String, IntegerPart As String Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _ "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", _ "Sixteen", "Seventeen", "Eighteen", "Nineteen") Tens = Array("", "", "Twenty", "Thirty", "Forty",