Сохранить фото в новую папку, проверить все фото - VBA

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

Добрый день, вба сегодня впервые увидел) есть такого вида ексель, залил в аттач, который грузит картинки из сети, при выделении ячейки, хочу дописать чтобы все картинки по ссылке сохранились в папку "img" рядом с файлом, чтобы потом можно было отправить файл не привязанный к сетевой папке. Вот код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     On Error Resume Next
        ActiveSheet.Image1.Picture = LoadPicture(Cells(Target.Row, 1).Value)
        SavePicture ActiveSheet.Image1.Picture, "D:\vbs\img" & тут я не придумал как выбрать значение ячейки B... & ".jpg"
End Sub

Подскажите пожалуйста, 1) можно ли подставить путь не привязанный, "D:\..." , а просто "img\..." 2) Как указать чтобы имя = значение B_номер ячейки_ было, чтобы сохранять файлы с правильными именами в img/ 3) Можно как-то автоматизировать проверку всех строк, чтобы запустить ее, файлы все скопировались разом, а не надо было построчно все щелкать

Решение задачи: «Сохранить фото в новую папку, проверить все фото»

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

                            sub mac
for r=6to 65536
if cells(r,1)=""then exit for
filecopy cells(r,1),thisworkbook.path & "\img\" & cells(r,2) & ".jpg"
next r
end sub
                        