Option Explicit
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
Private Sub DownloadFile(strWebFilename As String, strSaveFileName As String)
' Download the file.
URLDownloadToFile 0, strWebFilename, strSaveFileName, 0, 0
End Sub
Sub Demo()
Dim oCell As Range
Dim sPath As String
sPath = "c:\users\yourUserName\desktop\FolderName\"
For Each oCell In Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("B:B"))
DownloadFile oCell.Value, oCell.Offset(, 1).Value
Next
End Sub