Sub Замена_Невидимых_Символов()
'http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=96356
Dim objRegExp, formula As String, arr, i As Long
    Set objRegExp = CreateObject("VBScript.RegExp") 'http://www.script-coding.com/WSH/RegExp.html
    With objRegExp
        .Global = True 'False - проверять до первого соответствия, True - проверять по всему тексту. По умолчанию - False.
        .IgnoreCase = True 'False - учитывать регистр символов, True - игнорировать регистр символов. По умолчанию - False.
        .Pattern = "[" & Chr(127) & Chr(129) & Chr(141) & Chr(144) & Chr(157) & Chr(160) & "]" 'строка, используемая как шаблон."
    End With
    With Range("B1:B42")
        formula = "INDEX(CLEAN(TRIM(" & .Address & ")),)"
        arr = Evaluate(formula)
        For i = 1 To UBound(arr)
            arr(i, 1) = objRegExp.Replace(arr(i, 1), "") 'замена соответствующих шаблону вхождений в строке-оригинале на указанную подстроку. Возвращает (возможно) изменённую строку.
        Next
        .Value = arr
    End With
End Sub

.Pattern = "[" & Chr(127) & Chr(129) & Chr(141) & Chr(144) & Chr(157) & Chr(160) & "]"

.Pattern = "[^A-Za-zа-яА-Я0-9\_\-\/\s\.\,\:\!\@]

Option Explicit
Dim objRegExp, Str, objMatches, i
Sub asdasd()
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "господин гОспожа господа"
objRegExp.Pattern = "(?:" & Chr(238) & "|" & Chr(206) & ")"
Set objMatches = objRegExp.Execute(Str)
MsgBox objMatches.Count
For i = 0 To objMatches.Count - 1
    MsgBox objMatches.Item(i).Value
Next
End Sub

For i = 0 To objMatches.Count - 1
    objMatches.Item(i).Value = "" 'РУГАЕТСЯ на эту строку
    MsgBox objMatches.Item(i).Value 'просмотреть, заменён ли символ на пустоту
Next

Option Explicit
Sub xxx()
Dim arr, formula, i, objRegExp, objMatches, x
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.Pattern = "[" & Chr(160) & "]"
x = 0
With Range("B1:B42")
    formula = "INDEX(TRIM(" & .Address & "),)"
    arr = Evaluate(formula)
    For i = 1 To UBound(arr)
        'If arr(i, 1) Like "*" & Chr(160) & "*" Then arr(i, 1) = Replace(arr(i, 1), Chr(160), Empty)
        Set objMatches = objRegExp.Execute(arr(i, 1))
            'If objMatches.Count > x Then: ... : x=x+1
    Next
    .Value = arr
End With
End Sub

formula = "INDEX(CLEAN(TRIM(" & .Address & ")),)"

For i = LBound(arr) To UBound(arr)
If InStr(arr(i, 1), Chr(160)) > 0 Then
'MsgBox "dsad " & InStr(arr(i, 1), Chr(160))
End If
Next

Sub With_Evaluate()
Dim формула, массив, i 'объявляем переменные\массив, для примера не принципиально - тип Variant
  With Range("A1:A2") 'Range - Диапазон ссылающийся на A1-A2
     формула = "INDEX(TRIM(" & .Address & "),)" 'формула - переменная, в которую сохраняется текст, в данном случае
'       текст - это "формула" для "визуальной части" экселя, т. е. буд-то я сам в ячейку набираю формулу, по обработке ячеек, и
'       указанные там операторы срабатывают как формула, а не как код VBA.
'       Т. е. что-бы сработал этот набор операторов-функций (формула), его следует выполнить как обычную функцию в ячейке, и для этого используется оператор "Evaluate".
     массив = Evaluate(формула) 'передаём в переменную-массив результат выполнения оператором Evaluate формулы и 
'       в результате получаем отредактированное содержимое диапазона A1-A2.
     For i = LBound(массив) To UBound(массив) 'цикл с начальной позиции массива до последней
        Debug.Print массив(i, 1) 'отображаем в дебаг-окне И-тый элемент массива
     Next 'для цикла For (i++)
     .Value = массив 'вывести в диапазон "a1-a2" массив \ заменяем сразу весь диапазон, таким же блоком данных - массивом.
  End With
End Sub

.Value = "=TRIM(CLEAN(SUBSTITUTE(ActiveCell,CHAR(160),"" "")))"

With Range("I1", Cells(Rows.Count, "I").End(xlUp))
    .Value = Evaluate("=TRIM(CLEAN(SUBSTITUTE(ActiveCell,CHAR(160),"" "")))")

End With

Evaluate("INDEX(TRIM(" & .Address & "),)")

.Value = TRIM(CLEAN(SUBSTITUTE(.Address,CHAR(160),"" "")))

TRIM(CLEAN(SUBSTITUTE(("A1",CHAR(160),"" "")))

With Range("A1", Cells(Rows.Count, "A").End(xlUp))
    .Value =TRIM(CLEAN(SUBSTITUTE((XXX,CHAR(160),"" "")))
End With

For i=1 to 10
    If Range("A" & i).Value = " " Then Range("A" & i).Value = ""
End If: End For

With Range("I1", Cells(Rows.Count, "I").End(xlUp))
    .Value = Evaluate("INDEX(TRIM(" & .Address & "),)")
    .Value = TRIM(CLEAN(SUBSTITUTE((" & .Address & ",CHAR(160),"" "")))
    'или
    '.Value = TRIM(CLEAN(SUBSTITUTE((.Value,CHAR(160),"" "")))
End With

Sub Test()
Dim x
x = InputBox("Введите искомое значение")
If Range("A1").Value = x Then
    Range("A1").Interior.Color = vbGreen
End If
End Sub

Sub Test()
If Range("A1").Value = InputBox("Введите искомое значение") Then
    Range("A1").Interior.Color = vbGreen
End If
End Sub