Script to download images in VBA

Option Explicit
Private Declare PtrSafe 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

Sub downloadImages()
Dim rng As Range, cell As Variant
Set rng = Range(Range("A2"), Range("A10000").End(xlUp))
For Each cell In rng
URLDownloadToFile 0, cell.Offset(0, 1).Value, Application.ActiveWorkbook.Path & "\" & cell.Value, 0, 0
Next
End Sub

'credits - https://codingislove.com