Removing Symbols and Numbers RESOLVED

[MartinLiss]

If you can't do what Joachim suggests then do this for each entry in the list, where TESTDATA is the list entry.

Dim lngIndex As Long
Dim strOut As String
 
For lngIndex = 1 To Len(TESTDATA)
    Select Case Asc(Mid$(TESTDATA, lngIndex, 1))
        Case 97 To 122, 65 To 90, 48 To 57
            strOut = strOut & Mid$(TESTDATA, lngIndex, 1)
    End Select
Next
 
MsgBox strOut