Create a module and copy & paste the code below
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Sub MassImportPictures()
'#
'# declare private variables
'#
Dim lngRowNumber As Long
Dim lngLastRow As Long
Const cstrOutputPath As String = "C:\Windows\Temp"
'#
'# freeze application display
'#
Application.ScreenUpdating = False
'#
'# loop for all rows holding the pciture objects - get and save the image, assuming the URL to the image is held in column A,
'# and the actual/desired file name in column C
'#
With Worksheets("Sheet1")
lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For lngRowNumber = 2 To lngLastRow
Application.StatusBar = "Processing " & lngRowNumber & " of " & lngLastRow
If .Cells(lngRowNumber, "A").Value Like "*.tif*" Then
Call URLDownloadToFile(0&, CStr(.Cells(lngRowNumber, "A").Value), (cstrOutputPath & "\" & CStr(.Cells(lngRowNumber, "C").Value)), 0&, 0&)
End If
Next lngRowNumber
End With
'#
'# unfreeze application display
'#
Application.StatusBar = "Done"
Application.ScreenUpdating = True
Application.StatusBar = vbNullString
End Sub
PS. You will need to amend the code somewhat to get the URL from the hyperlink. If you need further assistance please post a copy of the workbook
Bookmarks