Макрос для загрузки картинок - работал в Excel 2013, но не работает в Excel 2016 - VBA

Формулировка задачи:

Добрый день! Имеется макрос который работал в Excel 2013, но не работает в Excel 2016. Помогите пожалуйста возобновить работу макроса в Excel 2016.

Решение задачи: «Макрос для загрузки картинок - работал в Excel 2013, но не работает в Excel 2016»

textual
                            Листинг программы 
                        

                                    If Len(Dir(ИмяФайла$)) = 0 Then ' добавленная строка
            ' обрабатываем ссылку, преобразуя её в URLEncode
            Ссылка$ = RussianStringToURLEncode(cell.Text)
 
            pi.SubAction , "Строка: " & cell.Row, "Файл: " & ИмяФайла$
            ' сохраняем очередную ссылку в виде файла в  папку
            If DownLoadFile(Ссылка, ИмяФайла) Then
                FilesCount% = FilesCount% + 1    ' Debug.Print "Скачан файл: " & Ссылка
            Else
                MsgBox "Не удалось загрузить файл " & Ссылка, vbCritical
            End If
        End If ' добавленная строка
                        