Можно ли организовать програмный поиск, аналогичный поиску "найти всё"?

Sub Example()
Dim objAllCells As Range, objCell As Range, strFirstAddress As String
Set objCell = Cells.Find('frtyвапсп', LookAt:=xlPart)
If Not objCell Is Nothing Then
     strFirstAddress = objCell.Address
    Set objAllCells = objCell
    Do
        Set objCell = Cells.FindNext(objCell)
        Set objAllCells = Union(objAllCells, objCell)
    Loop While Not objCell Is Nothing And Not strFirstAddress = objCell.Address
End If
objAllCells.Select
Range(strFirstAddress).Activate
End Sub

Sub Example2()
Dim oRow As Range, myValue As Variant
For Each oRow In Columns(1).Rows
    If Not IsEmpty(oRow) Then
        Set myValue = Columns(2).Find(oRow)
        If Not myValue Is Nothing Then MsgBox 'Значение ' & myValue.Value & ' найдено в обоих столбцах.'
    End If
Next
End Sub

Set НовыйДиапазон=(Диапазон1,Диапазон2,Диапазон3)

Union(Range('A1:E5'),cells(2,8).offset(0,1),Range(Cells(15,3),Cells(16,4),MyRange,Range(ИмяДиапазона)).select

For Each c In Rows(i).Columns
If c Like '*А*В*С*Х*У*' Then MsgBox c.Address
Next c