Function NumbersToLetters(S As String) As String
Dim X As Long
NumbersToLetters = Replace(Replace(S, ".", ""), ",", "")
For X = 1 To Len(NumbersToLetters)
Mid(NumbersToLetters, X, 1) = Replace(Chr(64 + Mid(NumbersToLetters, X, 1)), "@", "Z")
Next
End Function
You did not tell us what the digit 0 should be converted to, so I assumed the letter Z. Here is a function that will do the conversion, but it important to note that the number should be a text values when passed into the function so that trailing zeroes are not lost.
Code:Function NumbersToLetters(S As String) As String Dim X As Long NumbersToLetters = Replace(Replace(S, ".", ""), ",", "") For X = 1 To Len(NumbersToLetters) Mid(NumbersToLetters, X, 1) = Replace(Chr(64 + Mid(NumbersToLetters, X, 1)), "@", "Z") Next End Function
Here are the instruction for installing and using a UDF (user defined function)...Rick, thank you for the quick response. Can you please be more explicit? If I have a column (column A) of dollar values in the cells, let's say in next column (B) what is the formula I would use to convert column A dollar values to letters? Sorry for being so naive.