Sub test()

For Each cell In Columns("C")
PictName = cell.Hyperlinks.Item(1).Name
If PictName < "" Then
ActiveSheet.Pictures.Insert Filename:=PictName
End If
Next cell

End Sub

"forxigan" wrote:

I have an excel table which contains a list of products.
One of the columns contains a list of hyperlinks to each product's picture,
on a certain website.
I need a solution to get/import the actual pictures from the website to my
table, according to each product's hyperlink(i can translate each hyperlink
into a cell with the web adress of the picture, if it helps).

Thanks in advance.