Поиска символов в ячейках и их замена - VBA

Формулировка задачи:

Нужно найти определенное слово в ячейке и заменить без изменения остальных слов в этой ячейке. Написал макрос:

Dim x As Range: Application.ScreenUpdating = False
 Dim flag As Integer
 
    For Each x In Range("E2:E150")
    flag = 0
  
    If x.Value = "11" And flag = 0 Then
       x.Replace "11", "22"
       flag = 1
       End If
       
    If x.Value = "22" And flag = 0 Then
       x.Replace "22", "11"
    End If

    Next
    
    Application.ScreenUpdating = True

но он не подходит, т.к. ищет значение всей ячейки а не только некоторых символов из нее. Может быть Find использовать, но как реализовать?

Решение задачи: «Поиска символов в ячейках и их замена»

textual
                            Листинг программы 
                        

                            Dim x As Range
For Each x In Range("E2:E10")
    If x Like "*1*" Then
       x.Replace "1", "2", xlPart
    Else
       x.Replace "2", "1", xlPart
    End If
Next
                        