перестал работать макрос, запускающий поиск в Хроме

[caute]

Есть макрос, запускающий из Word поиск выделенного слова в Хроме. Какое-то время назад перестал работать. Пишет:
Run-time error '53': File not found
Хотя пути к Хрому и папке с user data прописаны верно (скопированы). В чем может быть причина?
Вот макрос:

Sub SearchInChrome()
Dim ss, s1, s2, s3
s1 = "c:\Program Files\Google\Chrome\chrome.exe"
s2 = "http://www.google.com/search?q=%22" & _
 IIf(Selection.Start = Selection.End, _
 Selection.Words.First.Text, Selection.Text) & "%22"
'Chrome запустить с параметром:
s3 = "--user-data-dir=""h:\Reserve\Chrome\"""
     Shell """%s1"" ""s2"""
End Sub