Extracting only text from cell in Excel VBA 1

[wwgmr]

Hi,

Is there way to extract just the text from cell? There maybe spaces between words.

Thanks

I know this should be easy but I am not finding it right now. lol

 

[wwgmr]

Forgot to mention that the cell may or may not have a number value before the text.

 

[SkipVought]

Hi wwgmr,

You want characters A to Z only? No spaces, numeric characters, punctuation???

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[SkipVought]

Function AlphaOnly(sStr As String) As String
    Dim sByte As String
    For i = 1 To Len(sStr)
        sByte = Mid(sStr, i, 1)
        Select Case sByte
        Case "a" To "z", "A" To "Z"
            AlphaOnly = AlphaOnly & sByte
        End Select
    Next
End Function

Use on spreadsheet as a user-defined function or in VBA code.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[wwgmr]

I do need the spaces Skip as they maybe two words in the cell. I was trying to do a instrrev to start from left and move across cell looking for maybe " " a double space but I didn't seem to write that correct.

So I do want to include the spaces in it.

 

[SkipVought]

Sure, Add a space

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com