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