If you're open to adding a new function to your workbook, this can do it simply for you.
==========
How to install the User Defined Function:
1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save your sheet
The function is installed and ready to use.
============
The new function is used like so...if the text string is in cell A1, this formula will convert the string the TxtNum format:
=SWAP(A1)
The new function has an optional second parameter, so if you ever want to switch the result and get NumTxt, use this instead:
=SWAP(A1, "n")
Bookmarks