Function stripped$(s$)
Const ok = "[#A-z]" '<remove the space here
Dim i%, t$, r$
For i = 1 To Len(s)
t = Mid(s, i, 1)
r = r & iif(t Like ok,t," ")
Next
'optional remove double spaces
'it has to be the worksheetfunction
'vba trim just trims on the outside
r=application.worksheetfunction.trim(r)

stripped = r
End Function

off the cuff.. hope it works :)


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


dougmcc1 wrote:

I was able to get the macro to replace certain special characters with a
space, but now I get some words with many spaces in between them. I use
trim to remove the whitespace from the ends of the final output string
but how do I remove the whitespace between the words?


---
Message posted from http://www.ExcelForum.com/