macro per salvare foto da collegamento ipertestuale in desktop

Sub Download_Files()
Dim FileNum As Long
Dim FileData() As Byte
Dim MyFile As String
Dim WHTTP As Object
On Error Resume Next
Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
If Err.Number <> 0 Then Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
Dim miorange As Range
Dim cll As Range
Set miorange = Range("a1:a10") '<--- Eventualmente da modificare
For Each cll In miorange
  MyFile = cll.Value
  fname = Right(MyFile, Len(MyFile) - InStrRev(MyFile, "/"))
  WHTTP.Open "GET", MyFile, False
  WHTTP.Send
  FileData = WHTTP.responseBody
  Set WHTTP = Nothing
  FileNum = FreeFile
  Open "C:\users\nome\desktop\" & fname For Binary Access Write As #FileNum
  Put #FileNum, 1, FileData
  Close #FileNum
Next

End Sub