Необходимо запускать chrome со строками поиска, например ищем слово myquestion
ThisWorkbook.FollowHyperlink "https://www.google.ru/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#newwindow=1&q=myquestion"
все работает - запускается chrome и выдается результат поиска моего слова
а потом вдруг chrome запускается с нужным запросом, но для поиска самого нужно нажать Enter или соответствующую кнопку мышкой
а через какое-то время - строго сообщение "Невозможно загрузить данные"
лечится переустановкой Chrome, но на время - через 2-3 дня все повторяется.
PS: Собственно перестают работать и вполне корректные гиперссылки в книге, те по клику мышки на ячейку с явной и корректной гиперссылкой выдает тоже сообщение
Попробуйте использовать другой инструмент вместо "FollowHyperlink", а именно "Shell".
Sub Макрос1()
Dim strChromeFullName As String
'1. Здесь укажите путь, где находится программа "Гугл Хром", и имя exe-файла программы "Гугл Хром".
' Обратите внимание, что добавляются кавычки. Это нужно для Shell.
strChromeFullName = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
'2. Здесь после "-url" укажите запрос.
Shell strChromeFullName & " -url https://www.google.ru/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#newwindow=1&q=myquestion"
End Sub