Hi Frank,

Function StripTxt(a As String) As String
' Strips all non-numeric characters from a string
' Returns a string, not a number!
' Leaves the decimal separator in the string
Dim i As Long
Dim b As String
For i = 1 To Len(a)
b = Mid$(a, i, 1)
If ((Asc(b) 47 And Asc(b) < 58) Or b = Application.DecimalSeparator)
Then StripTxt = StripTxt + b
Next i
End Function


--
Kind regards,

Niek Otten

"Frank & Pam Hayes" wrote in message
news:XvWjf.1478$fY3.1110@trnddc01...
I have a spreadsheet with custom formatting of a number to show the
currency name as text. This is a download from another application, so I
have no control of how it is formatted or the output. For example, I might
see the following cells in a given single column :

4,234 EUR
1,453 USD
2,999 CHF

These will all follow the custom format "#,##0 XXX" where XXX is the
currency type.

How can I split off the text portion of the format to another column? If
my orginal cell was A1, how could I make cell A2 =
A1(CustomFormatTextOnly)

I am open to a VBA solution for this as well, but could not figure out how
to isolate the text.

Frank