VB Code to remove special characters and bring just TEXT

[rizmomin]

Hello:

Please refer to attached file.

I have data in cplumn A as show " #Name?" but the actual cell contents have text.
I need VB Code to remove the special characters from the content of the cell and display
the actual TEXT only.

Example :

Cell A2 = "=+ Cash Tips Received"

I need it to convert to
A2 = Cash Tips Received

Let me know if you have any questions.
Thanks.
Riz

[Fluff13]

How about

Please Login or Register  to view this content.

[zot]

Something like this. Just modify to your need

Sub CleanCell()

Dim n As Long, i As Long
Dim strX As String, strCode As String, Char As String, strExtract As String
Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook
Set ws = wb.Sheets(1)

strCode = "[A-Z.a-z 0-9]"

For n = 10 To 32
strExtract = ""
strX = ws.Range("A" & n).Formula
If Not strX = "" Then
For i = 1 To Len(strX)
Char = Mid(strX, i, 1)
If Char Like strCode Then
strExtract = strExtract & Char
End If
Next
End If
ws.Range("A" & n) = Trim(strExtract)
Next

End Sub