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