Press Alt+F11 then Insert>Module :
Function removeSpecialCharacters(sInput As String) As String Dim s As String, temp As String, i As Long Dim C As String s = sInput If s = "" Then Exit Function temp = "" For i = 1 To Len(s) C = Mid(s, i, 1) If AscW(C) > 31 And AscW(C) < 127 Then temp = temp & C End If Next i removeSpecialCharacters = temp End Function