Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function CleanUp(Txt)
- For x = 1 To 255
- Select Case x
- Case 1 To 47, 58 To 255
- Txt = WorksheetFunction.Substitute(Txt, Chr(x), "")
- End Select
- Next x
- CleanUp = Txt
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
