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" <hayesfj@verizon.net> 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
>
>