Sub SearchValuesInWeb()
Dim Link$


' Макрос открывает в выбранном браузере результаты поиска значений из ячеек
' поиск производится в Google

If Err Then Exit Sub ' запуск не из контекстного меню

maxCellsCount = 10 ' больше 20 ячеек - отказываемся от запуска поиска

Dim coll As New Collection



' берем только непустые уникальные значения из выделенного диапазона ячеек

Dim ra As Range: Set ra = Intersect(Selection, ActiveSheet.UsedRange)
Arr = ra.Value: If ra.Cells.Count = 1 Then Arr = Array(ra(1))
For Each Item In Arr
If Len(Trim(Item)) Then coll.Add CStr(Trim(Item)), CStr(Trim(Item))
If coll.Count > maxCellsCount Then Exit For
Next



' если случайно запустить поиск тысячи значений - комп подвиснет надолго...

If coll.Count > maxCellsCount Then
msg = "Количество значений для поиска провысило ограничение в " & maxCellsCount & " ячеек!"
MsgBox msg, vbExclamation, "Слишком много значений - поиск отменяется"
Exit Sub
End If



Path$ = """" & "C:\Users\mila\AppData\Local\Yandex\YandexBrowser\Application\browser.exe -incognito" & """"



' проверяем существование исполняемого файла браузера

Path2$ = Path$: If Dir(Split(Path$, Chr(34))(1), vbNormal) = "" Then Path2$ = ""

For Each Item In coll 



' перебираем все уникальные значения ячеек

n = n + 1



' формируем поисковую ссылку для Yandex

Link = """" & "https://yandex.ru/search/?lr=213&text=" & Item & """"
CreateObject("wscript.shell").Run Link



' после первой ссылки дожидаемся запуска браузера (1 секунду)

If n = 1 Then Application.Wait Now + 1 / 86400

Next
End Sub