Функция поиска Google VBA - не захватываются все критерии поиска в «ячейке поиска»

Question

Я использую приведенный ниже код для создания функции поиска Google в Excel. Однако он работает, когда критерий поиска состоит из более чем одного слова, например Burger King, он выполняет функцию поиска только по первому слову, что делает результаты бесполезными (ie. Просто бургер), а второе слово отображается отдельно. chrome таб. Мой код ниже. У меня есть некоторые ненужные элементы, которые остались после того, как я попробовал разные идеи. Есть мысли?

Private Sub CommandButtonSearch_Click()
    Dim URL As String
    Dim googleChromePath As String
    Dim Name As String
    Dim search_string As String


    Name = Range("B2")
    search_string = Replace(Name, "", "+")
    URL = "https://news.google.com/search?q="

    googleChromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

    Shell (googleChromePath & " -url https://news.google.com/search?q=" & Name)


End Sub

Answer 1

search_string = Replace(Name, "", "+") '<< this doesn't replace anything

должно быть

search_string = Replace(Name, " ", "+") '<< replace spaces

и

Shell (googleChromePath & " -url https://news.google.com/search?q=" & Name)

должно быть

Shell (googleChromePath & " -url https://news.google.com/search?q=" & search_string)